Skip to content
Snippets Groups Projects
Commit 3035b05d authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Correct test

parent 342ce0ff
No related branches found
No related tags found
No related merge requests found
...@@ -76,8 +76,8 @@ ...@@ -76,8 +76,8 @@
(let* ((pathname (parse-namestring "cltest:temp.dat.newest")) (let* ((pathname (parse-namestring "cltest:temp.dat.newest"))
(namestring (namestring pathname))) (namestring (namestring pathname)))
(and (typep pathname 'logical-pathname) (and (typep pathname 'logical-pathname)
(or (equal namestring "CLSTEST:TEMP.DAT.NEWEST") (or (equal namestring "CLTEST:TEMP.DAT.NEWEST")
(equal namestring "CLSTEST:TEMP.DAT.newest")))) (equal namestring "CLTEST:TEMP.DAT.newest"))))
t) t)
;;; Error tests ;;; Error tests
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment