Changeset 3468

Show
Ignore:
Timestamp:
07/16/08 16:41:37 (4 months ago)
Author:
ksprotte
Message:

new test: validate-allocation-cache

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/test/allocation.lisp

    r3279 r3468  
    209209  (finishes (delete-object (make-contract (make-sponsor :login "test-sponsor") 1 :paidp nil)))) 
    210210 
     211(test validate-allocation-cache 
     212  (with-fixture initial-bos-store () 
     213    (let ((area1 (make-allocation-rectangle 0 0 8 8))) 
     214      (finishes (bos.m2::validate-allocation-cache)))))