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

[BKNR Commits]

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

made bos test fixture INITIAL-BOS-STORE more robust for ccl

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

Modified: trunk/projects/bos/test/fixtures.lisp
===================================================================
--- trunk/projects/bos/test/fixtures.lisp	2008-07-15 15:44:31 UTC (rev 3452)
+++ trunk/projects/bos/test/fixtures.lisp	2008-07-16 08:59:09 UTC (rev 3453)
@@ -56,8 +56,9 @@
                            :website-url bos.m2::*website-url*)
            (make-user "anonymous")      ; needed for web tests
            (&body))
-      (close-store)
-      (cl-fad:delete-directory-and-files store-path))))
+      (close-store)      
+      ;; (cl-fad:delete-directory-and-files store-path) ; fails on ccl
+      (asdf:run-shell-command "rm -r '~A'" store-path))))
 
 (defmacro store-test (name &body body)
   `(progn