GitLab

at 2022-09-10T20:20:54-07:00

Update tests for change in ensure-directories-exist

The tests here assumed that `ensure-directories-exits` would return a
pathname object.  But it doesn't anymore; it returns the given
pathspec as is.

@@ -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