X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.test.sh;h=f892feed0842b3e8540a6420a3c10966305e93f9;hb=d052cf55544eb8c251146457d9245e8610e0a8f2;hp=76f633838e31c7d588bfc400deab17bfc264579f;hpb=f369c736b57608402903ce5c59be78a87ef23364;p=sbcl.git diff --git a/tests/filesys.test.sh b/tests/filesys.test.sh index 76f6338..f892fee 100644 --- a/tests/filesys.test.sh +++ b/tests/filesys.test.sh @@ -6,7 +6,7 @@ # While most of SBCL is derived from the CMU CL system, the test # files (like this one) were written from scratch after the fork # from CMU CL. -# +# # This software is in the public domain and is provided with # absolutely no warranty. See the COPYING and CREDITS files for # more information. @@ -109,28 +109,28 @@ $SBCL <~%" - directory-pathname) + directory-pathname) (format t "~&~@~%" - directory-sorted-truenamestrings) + directory-sorted-truenamestrings) (format t "~&~@~%" - result-sorted-truenamestrings) + result-sorted-truenamestrings) (error "mismatch between DIRECTORY and expected result")))) (defun need-match (directory-pathname result-pathnames) "Require that (DIRECTORY DIRECTORY-PATHNAME) return RESULT-PATHNAMES @@ -156,34 +156,34 @@ Lisp filename syntax idiosyncrasies)." (need-match "./animal" '("animal/")) (need-match "animal/*.*" '("animal/invertebrate/" "animal/vertebrate/")) (need-match "animal/*/*.*" - '("animal/vertebrate/bird/" - "animal/vertebrate/mammal/" - "animal/vertebrate/snake/")) + '("animal/vertebrate/bird/" + "animal/vertebrate/mammal/" + "animal/vertebrate/snake/")) (need-match "plant/*.*" '("plant/kingsfoil" "plant/pipeweed")) (need-match "plant/**/*.*" '("plant/kingsfoil" "plant/pipeweed")) (need-match "plant/**/**/*.*" '("plant/kingsfoil" "plant/pipeweed")) (let ((vertebrates (mapcar (lambda (stem) - (concatenate 'string - "animal/vertebrate/" - stem)) - '("bird/" - "mammal/" - "mammal/bear/" "mammal/bear/grizzly" - "mammal/mythical/" "mammal/mythical/mermaid" - "mammal/mythical/unicorn" - "mammal/platypus" - "mammal/rodent/" "mammal/rodent/beaver" - "mammal/rodent/mouse" "mammal/rodent/rabbit" - "mammal/rodent/rat" - "mammal/ruminant/" "mammal/ruminant/cow" - "mammal/walrus" - "snake/" "snake/python")))) + (concatenate 'string + "animal/vertebrate/" + stem)) + '("bird/" + "mammal/" + "mammal/bear/" "mammal/bear/grizzly" + "mammal/mythical/" "mammal/mythical/mermaid" + "mammal/mythical/unicorn" + "mammal/platypus" + "mammal/rodent/" "mammal/rodent/beaver" + "mammal/rodent/mouse" "mammal/rodent/rabbit" + "mammal/rodent/rat" + "mammal/ruminant/" "mammal/ruminant/cow" + "mammal/walrus" + "snake/" "snake/python")))) (need-match "animal/vertebrate/**/*.*" vertebrates) (need-match "animal/vertebrate/mammal/../**/*.*" vertebrates) (need-match "animal/vertebrate/mammal/../**/**/*.*" vertebrates) #+nil (need-match "animal/vertebrate/mammal/mythical/../**/../**/*.*" - vertebrates)) + vertebrates)) (need-match "animal/vertebrate/**/robot.*" nil) (need-match "animal/vertebrate/mammal/../**/*.robot" nil) (need-match "animal/vertebrate/mammal/../**/robot/*.*" nil)