punycode: simplify decode-digit add test cases.

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

diff --git a/extra/punycode/punycode-tests.factor b/extra/punycode/punycode-tests.factor
index 950ac86df836810196fa10e3d51d81b76e677fa2..e8ba19939e65423cc4904155a87b30bf72b44bc2 100644 (file)
--- a/extra/punycode/punycode-tests.factor
+++ b/extra/punycode/punycode-tests.factor
@@ -1,6 +1,13 @@
 
 USING: arrays assocs fry kernel linked-assocs punycode
-tools.test urls ;
+punycode.private tools.test urls ;
+
+{ 0 } [ CHAR: A decode-digit ] unit-test
+{ 1 } [ CHAR: B decode-digit ] unit-test
+{ 25 } [ CHAR: Z decode-digit ] unit-test
+{ 26 } [ CHAR: 0 decode-digit ] unit-test
+{ 35 } [ CHAR: 9 decode-digit ] unit-test
+[ CHAR: & decode-digit ] [ invalid-digit? ] must-fail-with
 
 {
     ! Wikipedia Examples