[bknr-cvs] ksprotte changed trunk/projects/bos/test/allocation.lisp

[BKNR Commits]

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