summaryrefslogtreecommitdiff
path: root/test-suite/tests/web-uri.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/web-uri.test')
-rw-r--r--test-suite/tests/web-uri.test10
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 ""))