[bknr-cvs] r2366 - branches/bos/projects/bos/m2

[hhubner at common-lisp.net]

Author: hhubner
Date: Sat Jan 19 03:49:22 2008
New Revision: 2366

Modified:
   branches/bos/projects/bos/m2/allocation-test.lisp
Log:
Change allocation size in test so that it is always larger than the cache threshold.

Modified: branches/bos/projects/bos/m2/allocation-test.lisp
==============================================================================
--- branches/bos/projects/bos/m2/allocation-test.lisp	(original)
+++ branches/bos/projects/bos/m2/allocation-test.lisp	Sat Jan 19 03:49:22 2008
@@ -32,9 +32,9 @@
 
 (test allocation-area.one-contract.allocate-all-without-cache
   (with-fixture empty-store ()
-    (let ((area (make-allocation-rectangle 0 0 2 5))
+    (let ((area (make-allocation-rectangle 0 0 100 100))
 	  (sponsor (make-sponsor :login "test-sponsor"))
-	  (m2-count 10))
+	  (m2-count (* 100 100)))
       (finishes (make-contract sponsor m2-count))
       (signals (error) (make-contract sponsor m2-count))
       (is (zerop (allocation-area-free-m2s area))))))
\ No newline at end of file