[Git][cmucl/cmucl][master] 2 commits: Fix #136: ensure-directories-exist should return the given pathspec

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
b59185fc by Raymond Toy at 2022-10-16T14:27:39+00:00
Fix #136: ensure-directories-exist should return the given pathspec

- - - - -
49ecc858 by Raymond Toy at 2022-10-16T14:27:39+00:00
Merge branch 'issue-136-ansi-test-ensure-directories-exist.8' into 'master'

Fix #136: ensure-directories-exist should return the given pathspec

Closes #136

See merge request cmucl/cmucl!92
- - - - -


2 changed files:

- src/code/filesys.lisp
- tests/filesys.lisp


Changes:

=====================================
src/code/filesys.lisp
=====================================
@@ -1478,4 +1478,4 @@ optionally keeping some of the most recent old versions."
 			 (retry () :report "Try to create the directory again"
 				(go retry))))))
 	 ;; Only the first path in a search-list is considered.
-	 (return (values pathname created-p))))))
+	 (return (values pathspec created-p))))))


=====================================
tests/filesys.lisp
=====================================
@@ -10,7 +10,7 @@
 
 (define-test unix-namestring.1.exists
   ;; Make sure the desired directories exist.
-  (assert-equal #P"/tmp/foo/bar/hello.txt"
+  (assert-equal "/tmp/foo/bar/hello.txt"
 		(ensure-directories-exist "/tmp/foo/bar/hello.txt"))
   (dolist (path '("/tmp/hello.txt"
 		  "/tmp/foo/"
@@ -27,7 +27,7 @@
 
 (define-test unix-namestring.1.non-existent
   ;; Make sure the desired directories exist.
-  (assert-equal #P"/tmp/foo/bar/hello.txt"
+  (assert-equal "/tmp/foo/bar/hello.txt"
 		(ensure-directories-exist "/tmp/foo/bar/hello.txt"))
   ;; These paths contain directories that don't exist.
   (dolist (path '("/tmp/oops/"
@@ -42,7 +42,7 @@
 
 (define-test unix-namestring.2
   ;; Make sure the desired directories exist.
-  (assert-equal #P"/tmp/foo/bar/hello.txt"
+  (assert-equal "/tmp/foo/bar/hello.txt"
 		(ensure-directories-exist "/tmp/foo/bar/hello.txt"))
   (unwind-protect
        (progn



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4c9cbf436e6cab06cb3ed7dea8ec3f6b082530a6...49ecc8583459e42742a6e8d45be0b283af8e897d

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4c9cbf436e6cab06cb3ed7dea8ec3f6b082530a6...49ecc8583459e42742a6e8d45be0b283af8e897d
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20221016/480b820c/attachment-0001.html>