Raymond Toy pushed to branch issue-158-darwin-pathnames-utf8 at cmucl / cmucl

Commits:

• a4475ab6
  by Raymond Toy at 2023-02-20T13:33:07-08:00

  Use correct path to directory for issues.158.dir
  
  Need to merge in `*test-path*` to get the correct path to the
  directory containing the file we want to test.
  

1 changed file:

• tests/issues.lisp

Changes:

     (:tag :issues)

   (flet ((get-file ()

 	   ;; This assumes that there is only one file in resources/darwin

-	   (let ((files (directory "resources/darwin/*.txt")))

+	   (let ((files (directory (merge-pathnames "resources/darwin/*.txt" *test-path*))))

 	     (assert-equal (length files) 1)

 	     (first files))))

     (let ((f (get-file))