Implement \U00000 syntax handling for Unicodable

Fixes #234
Raku · Jun 1, 2018 · 8e73aec · 8e73aec
1 parent f579dbd
commit 8e73aec
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/bin/Unicodable.p6 b/bin/Unicodable.p6
@@ -96,7 +96,7 @@ method from-numerics($query) {
     $query ~~ m:ignoremark/^
         :i \s*
         [
-            [ | ‘u’ (.) <?{ $0[*-1].Str.uniname.match: /PLUS.*SIGN/ }>
+            [ | [｢\U｣ |‘u’ (.)] <?{ $0[*-1].Str.uniname.match: /PLUS.*SIGN/ }>
               | [ <:Nd> & <:Numeric_Value(0)> ] ‘x’ # TODO is it fixed now? … What exactly?
             ]
             $<digit>=<:HexDigit>+

diff --git a/t/unicodable.t b/t/unicodable.t
@@ -217,6 +217,14 @@ $t.test(‘last basic query, just in case’,
         /^ <me($t)>‘, U+2A34 MULTIPLICATION SIGN IN LEFT HALF CIRCLE [Sm] (⨴)’ $/,
         /^ <me($t)>‘, U+1D227 GREEK INSTRUMENTAL NOTATION SYMBOL-17 [So] (𝈧)’ $/);
 
+# https://github.com/perl6/whateverable/issues/234
+$t.test(｢\U lookup by code｣,
+        “{$t.bot-nick}: \\U0010ffff”,
+        /^ <me($t)>‘U+10FFFF <illegal> [] (�)’ $/);
+$t.test(｢\U lookup by code｣,
+        “{$t.bot-nick}: \\U2665”,
+        /^ <me($t)>‘U+2665 BLACK HEART SUIT [So] (♥)’ $/);
+
 
 $t.last-test;
 done-testing;