diff --git a/lib/modules/Standards.pmod/testsuite.in b/lib/modules/Standards.pmod/testsuite.in
index b414228ab3037f3e832abd304e6756c31fb6aea2..d4459b121ffb13274b153beebc607d49d307a55a 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, "??")