Skip to content
Snippets Groups Projects
Commit bc136c62 authored by pfdietz's avatar pfdietz
Browse files

Commented out namestring.[34]

parent 96fd5972
No related branches found
No related tags found
No related merge requests found
...@@ -23,12 +23,20 @@ ...@@ -23,12 +23,20 @@
(assert (string= (namestring ns) ns)))) (assert (string= (namestring ns) ns))))
nil) nil)
;;; I'm not convinced these tested required behavior, so I'm commenting
;;; them out for now. FIXME: determine if they are bogus
#|
(deftest namestring.3 (deftest namestring.3
(let* ((name "namestring.lsp") (let* ((name "namestring.lsp")
(pn (merge-pathnames (pathname name))) (pn (merge-pathnames (pathname name)))
(name2 (namestring pn)) (name2 (namestring pn))
(pn2 (pathname name2))) (pn2 (pathname name2)))
(or (equalt pn pn2) (list pn pn2))) (or (equalt pn pn2) (list (list pn (pathname-host pn) (pathname-device pn)
(pathname-directory pn) (pathname-name pn)
(pathname-type pn) (pathname-version pn))
(list pn2 (pathname-host pn2) (pathname-device pn2)
(pathname-directory pn2) (pathname-name pn2)
(pathname-type pn2) (pathname-version pn2)))))
t) t)
(deftest namestring.4 (deftest namestring.4
...@@ -36,8 +44,14 @@ ...@@ -36,8 +44,14 @@
(pn (merge-pathnames (pathname name))) (pn (merge-pathnames (pathname name)))
(name2 (with-open-file (s pn :direction :input) (namestring s))) (name2 (with-open-file (s pn :direction :input) (namestring s)))
(pn2 (pathname name2))) (pn2 (pathname name2)))
(or (equalt pn pn2) (list pn pn2))) (or (equalt pn pn2) (list (list pn (pathname-host pn) (pathname-device pn)
(pathname-directory pn) (pathname-name pn)
(pathname-type pn) (pathname-version pn))
(list pn2 (pathname-host pn2) (pathname-device pn2)
(pathname-directory pn2) (pathname-name pn2)
(pathname-type pn2) (pathname-version pn2)))))
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