Changeset 3140
- Timestamp:
- 05/20/08 13:28:26 (6 months ago)
- Files:
-
- trunk/projects/bos/test/web/contract-tree.lisp (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/test/web/contract-tree.lisp
r3074 r3140 1 1 (in-package :bos.test) 2 (in-suite :bos.test.web. contract-tree)2 (in-suite :bos.test.web.quad-tree) 3 3 4 4 (test geo-box-intersect-p.1 5 (let ((tree (make-instance 'bos.web::quad- tree-node :geo-box bos.web::*m2-geo-box*)))5 (let ((tree (make-instance 'bos.web::quad-node :geo-box bos.web::*m2-geo-box*))) 6 6 (bos.web::ensure-child tree 0) 7 7 (bos.web::ensure-child tree 1) … … 23 23 (bos.web::map-nodes (lambda (node) (declare (ignore node)) (incf count)) tree) 24 24 count))) 25 (let ((tree (make-instance 'bos.web::quad- tree-node :geo-box bos.web::*m2-geo-box*)))25 (let ((tree (make-instance 'bos.web::quad-node :geo-box bos.web::*m2-geo-box*))) 26 26 (is (= 1 (count-nodes tree))) 27 27 (bos.web::ensure-node-with-path tree '(0)) … … 39 39 40 40 (test node-path.1 41 (let ((tree (make-instance 'bos.web::quad- tree-node :geo-box bos.web::*m2-geo-box*)))41 (let ((tree (make-instance 'bos.web::quad-node :geo-box bos.web::*m2-geo-box*))) 42 42 (for-all ((path (gen-list :elements (gen-integer :min 0 :max 3)))) 43 43 (is (equal path (bos.web::node-path tree (bos.web::ensure-node-with-path tree path))))))) 44 44 45 45 (test geo-point-in-box-p 46 (let* ((tree (make-instance 'bos.web::quad- tree-node :geo-box bos.web::*m2-geo-box*))46 (let* ((tree (make-instance 'bos.web::quad-node :geo-box bos.web::*m2-geo-box*)) 47 47 (box (bos.web::geo-box tree))) 48 48 (is-true (bos.web::geo-point-in-box-p box (list (bos.web::geo-box-west box) (bos.web::geo-box-north box))))
