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 @@ (,@store-object-vars) ,@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