Revision: 3468 Author: ksprotte URL: http://bknr.net/trac/changeset/3468
new test: validate-allocation-cache
U trunk/projects/bos/test/allocation.lisp
Modified: trunk/projects/bos/test/allocation.lisp =================================================================== --- trunk/projects/bos/test/allocation.lisp 2008-07-16 13:51:58 UTC (rev 3467) +++ trunk/projects/bos/test/allocation.lisp 2008-07-16 14:41:37 UTC (rev 3468) @@ -208,3 +208,7 @@ (make-allocation-rectangle 0 0 8 8) (finishes (delete-object (make-contract (make-sponsor :login "test-sponsor") 1 :paidp nil))))
+(test validate-allocation-cache + (with-fixture initial-bos-store () + (let ((area1 (make-allocation-rectangle 0 0 8 8))) + (finishes (bos.m2::validate-allocation-cache))))) \ No newline at end of file