Changeset 3173

Show
Ignore:
Timestamp:
05/23/08 14:42:58 (6 months ago)
Author:
ksprotte
Message:

fixed bug in test node-path.1

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/test/web/quad-tree.lisp

    r3171 r3173  
    143143  (let ((bos.web::*quad-tree* (make-instance 'quad-node :geo-box *m2-geo-box*))) 
    144144    (for-all ((path (gen-list :elements (gen-integer :min 0 :max 3)))) 
    145       (is (equal path (node-path (ensure-node-with-path tree path))))))) 
     145      (is (equal path (node-path (ensure-node-with-path bos.web::*quad-tree* path))))))) 
    146146