Commit 55f4af3a authored by pfdietz's avatar pfdietz

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

parent 23316c59
......@@ -11,7 +11,9 @@
(s (first vals)))
(if (and (null (cdr vals))
(or (null s)
(equal (host-namestring s) s)))
(stringp s)
;; (equal (host-namestring s) s)
))
:good
vals))
:good)
......@@ -22,7 +24,8 @@
(let ((ns (host-namestring s)))
(when ns
(assert (stringp ns))
(assert (string= (host-namestring ns) ns)))))
;; (assert (string= (host-namestring ns) ns))
)))
nil)
(deftest host-namestring.3
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment