From f4f9534e9fa8bb474173d26b989792ed69891cc2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 8 Jun 2016 15:35:09 +0200
Subject: [PATCH] Testsuite [Standards.URI]: Added some more tests.
---
lib/modules/Standards.pmod/testsuite.in | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/lib/modules/Standards.pmod/testsuite.in b/lib/modules/Standards.pmod/testsuite.in
index b414228ab3..d4459b121f 100644
--- a/lib/modules/Standards.pmod/testsuite.in
+++ b/lib/modules/Standards.pmod/testsuite.in
@@ -111,6 +111,14 @@ test_eval_error(Standards.URI("www.com"))
test_eq((string)Standards.URI("www.com","http://"),"http://www.com")
test_eq((string)Standards.URI("www.com/x?a=b#y","http://"),"http://www.com/x?a=b#y")
test_eq((string)Standards.URI("ftp://www.com/x?a=b#y","http://"),"ftp://www.com/x?a=b#y")
+test_eq(Standards.URI("http://bloke@gmail.com@yahoo.com")->user, "bloke@gmail.com")
+test_eq((string)Standards.URI("a", "file:"), "file:a")
+test_eq((string)Standards.URI("a", "file:b"), "file:a")
+test_eq((string)Standards.URI("a", "file:b/c"), "file:b/a")
+test_eq((string)Standards.URI("a/b", "file:"), "file:a/b")
+test_eq((string)Standards.URI("a/b", "file:c"), "file:a/b")
+test_eq((string)Standards.URI("a/b", "file:c/d"), "file:c/a/b")
+test_eq((string)Standards.URI("<a@example.com>", "mailto:"), "mailto:<a@example.com>")
// Some tests of empty path followed by a query.
test_eq(Standards.URI("http://user:??@host?query")->query, "query")
test_eq(Standards.URI("http://user:??@host?query")->password, "??")
--
GitLab