Changeset 3422

Timestamp:

07/10/08 16:31:04 (6 months ago)

Author:

ksprotte

Message:

quick fix to test delete-sat-layer-and-snapshot

Files:

• trunk/projects/bos/test/fixtures.lisp (modified) (2 diffs)
• trunk/projects/bos/test/web/sat-tree.lisp (modified) (1 diff)

trunk/projects/bos/test/fixtures.lisp

@@ -19 +19 @@
-              (for id-var in id-vars)
-              (for store-object-var in store-object-vars)
-
+
+
+
-       (%reopen-store :snapshot ,snapshot)
-       (setf ,@(iter
@@ -25 +27 @@
-                (for store-object-var in store-object-vars)
-                (collect store-object-var)
-find-store-object ,id-var
+when ,id-var (find-store-object ,id-var)
-
-(defmacro %with-store-reopenings ((&key snapshot bypass)
-                                  (&rest store-object-vars) &body body)
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
-(defmacro with-store-reopenings ((&rest store-object-vars) &body body)

trunk/projects/bos/test/web/sat-tree.lisp

@@ -2 +2 @@
-(in-suite :bos.test.web)
-
-test delete-sat-layer-and-snapshot    
-with-fixture initial-bos-store (
-let ((geo-box (bos.web::rectangle-geo-box (bos.web::make-rectangle2 '(10 10 100 100))))
-cl-gd:with-image (image 1000 1000
+store-test delete-sat-layer-and-snapshot
+let ((geo-box (bos.web::rectangle-geo-box (bos.web::make-rectangle2 '(10 10 100 100))))
+cl-gd:with-image (image 1000 1000
+with-store-reopenings (
-        (bos.web::make-sat-layer image geo-box :test 0)
-        (delete-object (first (class-instances 'bos.web::sat-layer)))
-
-
-
-
-
-
-
-
-
-
+