punycode: adding an initial version of an IRL.

[factor.git] / extra / punycode / punycode-tests.factor

diff --git a/extra/punycode/punycode-tests.factor b/extra/punycode/punycode-tests.factor
index e31550ab7aa1a6047295bff54309b755246b937a..fc316b281a5aa4ff61bac6e57340f9e21419bb83 100644 (file)
--- a/extra/punycode/punycode-tests.factor
+++ b/extra/punycode/punycode-tests.factor
@@ -1,5 +1,5 @@
 
-USING: arrays assocs fry kernel punycode tools.test ;
+USING: arrays assocs fry kernel punycode tools.test urls ;
 
 {
     ! Wikipedia Examples
@@ -147,3 +147,6 @@ USING: arrays assocs fry kernel punycode tools.test ;
     [ [ 1array ] dip '[ _ idna> ] unit-test ]
     [ 1array swap '[ _ >idna ] unit-test ] 2bi
 ] assoc-each
+
+{ IRL" http://例子.卷筒纸" } [ URL" http://xn--fsqu00a.xn--3lr804guic/" >irl ] unit-test
+{ URL" http://xn--fsqu00a.xn--3lr804guic/" } [ IRL" http://例子.卷筒纸" >url ] unit-test