Changeset 3572

Show
Ignore:
Timestamp:
07/23/08 11:28:59 (4 months ago)
Author:
ksprotte
Message:

5am fixture initial-bos-store now allows for switching off deletion of the test-store (on by default)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/test/fixtures.lisp

    r3490 r3572  
    4747     ,@body)) 
    4848 
    49 (def-fixture initial-bos-store ()   
     49(def-fixture initial-bos-store (&key (delete-store t))   
    5050  (let ((store-path (parse-namestring 
    5151                     (format nil "/tmp/test-store-~D.tmp/" (get-universal-time))))) 
    …… 
    5959      (close-store)       
    6060      ;; (cl-fad:delete-directory-and-files store-path) ; fails on ccl 
    61       (asdf:run-shell-command "rm -r '~A'" store-path)))) 
     61      (if delete-store 
     62          (asdf:run-shell-command "rm -r '~A'" store-path) 
     63          (warn "not deleting store at ~A" store-path))))) 
    6264 
    6365(defmacro store-test (name &body body)