Changeset 15332 for trunk/abcl/test/lisp/abcl/wild-pathnames.lisp

Timestamp:

06/26/20 13:23:35 (3 years ago)

Author:

Mark Evenson

Message:

Revisions for the long neglected ABCL/TEST/LISP suite

Restore loading under SBCL and CCL.

FIXME: package-local-nicknames-tests only runs once in the same
process, causing a mysterious failure on the second time.

File:

• trunk/abcl/test/lisp/abcl/wild-pathnames.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/wild-pathnames.lisp

@@ -51 +51 @@
 
 (deftest wild-pathnames.2
-    (equal 
-     (first (with-test-directories
-                (directory (make-pathname :directory (pathname-directory *temp-directory-root*)
-                                          :name :wild :type "ext"
-                                          :version :newest))))
-     (merge-pathnames *temp-directory-root* "foo.ext"))
+    (check-namestring
+     (namestring (first (with-test-directories
+                            (directory (make-pathname :directory (pathname-directory *temp-directory-root*)
+                                                      :name :wild :type "ext"
+                                                      :version :newest)))))
+     (namestring (merge-pathnames *temp-directory-root* "foo.ext")))
   t)