Changeset 3280

Show
Ignore:
Timestamp:
06/17/08 07:09:14 (7 months ago)
Author:
ksprotte
Message:

bos/test: better store-path handling and deletion in INITIAL-BOS-STORE

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3279 r3280  
    4444 
    4545(def-fixture initial-bos-store ()   
    46   (unwind-protect 
    47        (progn 
    48          (bos.m2::reinit :delete t 
    49                          :directory #p"/tmp/test-store.tmp/" 
    50                          :website-url bos.m2::*website-url*) 
    51          (make-user "anonymous")        ; needed for web tests 
    52          (&body)) 
    53     (close-store))) 
     46  (let ((store-path (parse-namestring 
     47                     (format nil "/tmp/test-store-~D.tmp/" (get-universal-time))))) 
     48    (unwind-protect 
     49         (progn 
     50           (bos.m2::reinit :delete t 
     51                           :directory store-path 
     52                           :website-url bos.m2::*website-url*) 
     53           (make-user "anonymous")      ; needed for web tests 
     54           (&body)) 
     55      (close-store) 
     56      (cl-fad:delete-directory-and-files store-path)))) 
    5457 
    5558(defmacro store-test (name &body body)