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

Don't assume that host-namestring can be applied to a host name

parent 23316c59
No related branches found
No related tags found
No related merge requests found
...@@ -11,7 +11,9 @@ ...@@ -11,7 +11,9 @@
(s (first vals))) (s (first vals)))
(if (and (null (cdr vals)) (if (and (null (cdr vals))
(or (null s) (or (null s)
(equal (host-namestring s) s))) (stringp s)
;; (equal (host-namestring s) s)
))
:good :good
vals)) vals))
:good) :good)
...@@ -22,7 +24,8 @@ ...@@ -22,7 +24,8 @@
(let ((ns (host-namestring s))) (let ((ns (host-namestring s)))
(when ns (when ns
(assert (stringp ns)) (assert (stringp ns))
(assert (string= (host-namestring ns) ns))))) ;; (assert (string= (host-namestring ns) ns))
)))
nil) nil)
(deftest host-namestring.3 (deftest host-namestring.3
......
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