GitLab

at 2022-10-16T14:27:39+00:00

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

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
 			 (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))))))

 (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/"

 (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/"

 (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

Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

2 changed files:

Changes: