(parse-namestring "SCRATCH:FOO.TXT.NEWEST")
(parse-namestring "SCRATCH:FOO.TXT"))))
(dolist (p pathnames)
+ (print p)
(handler-case
(let ((*print-readably* t))
(assert (equal (read-from-string (format nil "~S" p)) p)))
(print-not-readable () nil))))
\f
-;;; BUG 330: "PARSE-NAMESTRING should accept namestrings as the default argument"
-;;; ...and streams as well
+;;; BUG 330: "PARSE-NAMESTRING should accept namestrings as the
+;;; default argument" ...and streams as well
(assert (equal (parse-namestring "foo" nil "/")
(parse-namestring "foo" nil #P"/")))
(let ((test "parse-namestring-test.tmp"))
;;; ENOUGH-NAMESTRING should probably not fail when the namestring in
;;; question has a :RELATIVE pathname.
(assert (equal (enough-namestring #p"foo" #p"./") "foo"))
-
+\f
+;;; bug reported by Artem V. Andreev: :WILD not handled in unparsing
+;;; directory lists.
+(assert (equal (namestring #p"/tmp/*/") "/tmp/*/"))
;;;; success
(quit :unix-status 104)