test method forms of uni functions

Raku · Apr 17, 2015 · fe2c47b · fe2c47b
1 parent 347b68e
commit fe2c47b
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 4 deletions.
diff --git a/S15-unicode-information/unimatch-general.t b/S15-unicode-information/unimatch-general.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 209;
+plan 217;
 
 #use unicode :v(6.3)
 
@@ -20,6 +20,16 @@ nok unimatch(0x3a, 'Nd'), "0x3a is not Nd";
 ok unimatch('⅓', 'No'), "'⅓' is No";
 nok unimatch('⅓', 'Nd'), "'⅓' is not Nd";
 
+nok 0x29.uniname('Nd'), "0x29 is not Nd";
+ok 0x30.uniname('Nd'), "0x30 is Nd";
+ok '0'.uniname('Nd'), "'0' is Nd";
+ok 0x39.uniname('Nd'), "0x39 is Nd";
+ok '9'.uniname('Nd'), "'9' is Nd";
+nok 0x3a.uniname('Nd'), "0x3a is not Nd";
+
+ok '⅓'.uniname('No'), "'⅓' is No";
+nok '⅓'.uniname('Nd'), "'⅓' is not Nd";
+
 ok unimatch("\c[AEGEAN NUMBER NINETY THOUSAND]", 'No'), "AEGEAN NUMBER NINETY THOUSAND is No";
 ok unimatch("\c[MATHEMATICAL MONOSPACE DIGIT ZERO]", 'Nd'), "MATHEMATICAL MONOSPACE DIGIT ZERO is Nd";
 

diff --git a/S15-unicode-information/uniname.t b/S15-unicode-information/uniname.t
@@ -2,12 +2,17 @@ use v6;
 
 use Test;
 
-plan 24;
+plan 26;
 
 # Unicode version pragma not needed here, as names cannot change.
 
 # L<S15/Character Name>
 
+# method forms
+#?niecza 2 skip "uniname NYI"
+is 0x30.uniname, "DIGIT ZERO",  "method uniname returns a name";
+is "0".uniname,  "DIGIT ZERO",  "method uniname works in string form";
+
 #?niecza 24 skip "uniname NYI"
 
 is uniname(0x30), "DIGIT ZERO",  "uniname returns a name";
@@ -43,5 +48,6 @@ is uniname("¶", :either :one),        "PARAGRAPH SIGN",         "uniname(:eithe
 is uniname("\x[2028]", :either :one), "LINE SEPARATOR",         "uniname(:either :one) returns current Unicode name for formatting character.";
 is uniname("\x[80]", :either :one),   "<control-0080>",         "uniname(:either :one) returns codepoint label for control character without any name.";
 
-#?rakudo skip "uninames NYI"
+#?rakudo 2 skip "uninames NYI"
 is uninames("AB"), ("LATIN CAPITAL LETTER A", "LATIN CAPITAL LETTER B"), "uninames correctly works on every character";
+is "AB".uninames, ("LATIN CAPITAL LETTER A", "LATIN CAPITAL LETTER B"), "uninames correctly works on every character";
diff --git a/S15-unicode-information/unival.t b/S15-unicode-information/unival.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 25;
+plan 32;
 
 #use unicode :v(6.3);
 
@@ -19,6 +19,15 @@ is unival('9'), 9, "'9' has numeric value 9";
 is unival('⅓').WHAT.gist, '(Rat)', "'⅓' is a Rat";
 is unival('⅓'), 1/3, "'⅓' has the value 1/3";
 
+is 0x30.unival.WHAT.gist, '(Int)', "0x30 is Int";
+is 0x30.unival, 0, "0x30 has numeric value 0";
+is '0'.unival, 0, "'0' has numeric value 0";
+is 0x39.unival, 9, "0x39 has numeric value 9";
+is '9'.unival, 9, "'9' has numeric value 9";
+
+is '⅓'.unival.WHAT.gist, '(Rat)', "'⅓' is a Rat";
+is '⅓'.unival, 1/3, "'⅓' has the value 1/3";
+
 is unival("\c[VULGAR FRACTION ONE TENTH]").WHAT.gist, '(Rat)', "'⅒' is a Rat";
 is unival('⅒'), 1/10, "'⅒' has the value 1/10";