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

Remove test pathname-host.9

parent bb97603d
No related branches found
No related tags found
No related merge requests found
...@@ -52,9 +52,7 @@ ...@@ -52,9 +52,7 @@
(do-special-strings (s "" nil) (pathname-host s)) (do-special-strings (s "" nil) (pathname-host s))
nil) nil)
;;; pathname-host returns a valid pathname host, which is defined to be either #|
;;; a string, a list of strings, or the symbol :unspecific
(deftest pathname-host.9 (deftest pathname-host.9
(loop for p in *pathnames* (loop for p in *pathnames*
for host = (pathname-host p) for host = (pathname-host p)
...@@ -63,6 +61,7 @@ ...@@ -63,6 +61,7 @@
(eql host :unspecific)) (eql host :unspecific))
collect (list p host)) collect (list p host))
nil) nil)
|#
;;; Error cases ;;; Error cases
......
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