X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.test.sh;h=9b720a91b8aa9101f44657450f73600f37a47f5b;hb=9837343101c3da7b3a8f94609ec116ec5025436a;hp=09f96c0e8bc7bc1fb013076afd09ab770940f331;hpb=a42922aef908a1b45ae5420d51b2ca7ee1bafb9e;p=sbcl.git

diff --git a/tests/filesys.test.sh b/tests/filesys.test.sh
index 09f96c0..9b720a9 100644
--- a/tests/filesys.test.sh
+++ b/tests/filesys.test.sh
@@ -198,5 +198,18 @@ Lisp filename syntax idiosyncrasies)."
 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")' --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")' --eval '(sb-ext:quit)'
+test -d foo?bar
+check_status_maybe_lose "ENSURE-DIRECTORIES-EXIST part 2" $? \
+    0 "(directory exists)"
+
 # success convention for script
 exit $EXIT_TEST_WIN