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