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

[BKNR Commits]

Revision: 3572
Author: ksprotte
URL: http://bknr.net/trac/changeset/3572

5am fixture initial-bos-store now allows for switching off deletion of the test-store (on by default)
U   trunk/projects/bos/test/fixtures.lisp

Modified: trunk/projects/bos/test/fixtures.lisp
===================================================================
--- trunk/projects/bos/test/fixtures.lisp	2008-07-23 09:28:10 UTC (rev 3571)
+++ trunk/projects/bos/test/fixtures.lisp	2008-07-23 09:28:59 UTC (rev 3572)
@@ -46,7 +46,7 @@
        (, at store-object-vars)
      , at body))
 
-(def-fixture initial-bos-store ()  
+(def-fixture initial-bos-store (&key (delete-store t))  
   (let ((store-path (parse-namestring
                      (format nil "/tmp/test-store-~D.tmp/" (get-universal-time)))))
     (unwind-protect
@@ -58,7 +58,9 @@
            (&body))
       (close-store)      
       ;; (cl-fad:delete-directory-and-files store-path) ; fails on ccl
-      (asdf:run-shell-command "rm -r '~A'" store-path))))
+      (if delete-store
+          (asdf:run-shell-command "rm -r '~A'" store-path)
+          (warn "not deleting store at ~A" store-path)))))
 
 (defmacro store-test (name &body body)
   `(progn