urls: another unicode test.

diff --git a/basis/urls/urls-tests.factor b/basis/urls/urls-tests.factor
index de7e86e6fa2182e52e588ad49fcf869b7bf987ce..f41a6e930df1eb4e9d010587d8cb54b3df4357d6 100644 (file)
--- a/basis/urls/urls-tests.factor
+++ b/basis/urls/urls-tests.factor
@@ -175,6 +175,19 @@ urls [
   } }
 [ "http://ш:ш@ш.com:1234/ш?ш=ш#ш" >url ] unit-test
 
+{
+    T{ url
+        { protocol "http" }
+        { username f }
+        { password f }
+        { host "März.com" }
+        { port f }
+        { path "/päth" }
+        { query LH{ { "query" "Dürst" } } }
+        { anchor "☃" }
+    }
+} [ "http://März.com/päth?query=Dürst#☃" >url ] unit-test
+
 { T{ url
     { protocol "https" }
     { host "www.google.com" }