Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv31615/tests
Modified Files:
filesys.test.sh stress-gc.sh
Log Message:
1.0.16.43: test fixes
From Vitaly Mayatskikh (sbcl-devel 2008-05-21)
Index: filesys.test.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/filesys.test.sh,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- filesys.test.sh 1 Jan 2008 15:07:53 -0000 1.13
+++ filesys.test.sh 22 May 2008 08:11:07 -0000 1.14
@@ -201,12 +201,12 @@
# Test whether ENSURE-DIRECTORIES-EXIST can create a directory whose
# name contains a wildcard character (it used to get itself confused
# internally).
-run_sbcl --eval '(ensure-directories-exist "foo\\*bar/baz.txt")'
+run_sbcl --eval '(ensure-directories-exist "foo\\*bar/baz.txt")' --eval '(sb-ext:quit)'
test -d foo*bar
check_status_maybe_lose "ENSURE-DIRECTORIES-EXIST part 1" $? \
0 "(directory exists)"
-run_sbcl --eval '(ensure-directories-exist "foo\\?bar/baz.txt")'
+run_sbcl --eval '(ensure-directories-exist "foo\\?bar/baz.txt")' --eval '(sb-ext:quit)'
test -d foo?bar
check_status_maybe_lose "ENSURE-DIRECTORIES-EXIST part 2" $? \
0 "(directory exists)"
Index: stress-gc.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/stress-gc.sh,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- stress-gc.sh 28 Dec 2007 19:46:57 -0000 1.5
+++ stress-gc.sh 22 May 2008 08:11:07 -0000 1.6
@@ -13,7 +13,7 @@
. ./subr.sh
-sbcl <<EOF
+run_sbcl <<EOF
(compile-file "./stress-gc.lisp")
(load *)
(time (stress-gc ${1:-100000} ${2:-3000}))
|