From: Richard M K. <kr...@us...> - 2008-01-01 15:08:01
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18016/tests Modified Files: filesys.test.sh Log Message: 1.0.13.8: Fix bug in ENSURE-DIRECTORIES-EXIST * ENSURE-DIRECTORIES-EXIST used NAMESTRING rather than NATIVE-NAMESTRING to construct filenames, and so failed when the pathname denoted a filename containing wildcard characters. * Add tests for same. Index: filesys.test.sh =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/filesys.test.sh,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- filesys.test.sh 28 Dec 2007 19:46:57 -0000 1.12 +++ filesys.test.sh 1 Jan 2008 15:07:53 -0000 1.13 @@ -198,5 +198,18 @@ EOF check_status_maybe_lose "DIRECTORY/TRUENAME part 3" $? +# 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")' +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")' +test -d foo?bar +check_status_maybe_lose "ENSURE-DIRECTORIES-EXIST part 2" $? \ + 0 "(directory exists)" + # success convention for script exit $EXIT_TEST_WIN |