diff options
Diffstat (limited to 'test-suite/tests/web-uri.test')
-rw-r--r-- | test-suite/tests/web-uri.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/tests/web-uri.test b/test-suite/tests/web-uri.test index 95fd82f16..e9fb766f0 100644 --- a/test-suite/tests/web-uri.test +++ b/test-suite/tests/web-uri.test @@ -367,6 +367,16 @@ (pass-if "//bad.host.1" (not (string->uri-reference "//bad.host.1"))) + (pass-if "//bad.host.1." + (not (string->uri-reference "//bad.host.1."))) + + (pass-if "//bad.host.." + (not (string->uri-reference "//bad.host.."))) + + (pass-if "//1.good.host." + (uri=? (string->uri-reference "//1.good.host.") + #:host "1.good.host." #:path "")) + (pass-if "http://1.good.host" (uri=? (string->uri-reference "http://1.good.host") #:scheme 'http #:host "1.good.host" #:path "")) |