Make isIDFIRST_uni() return identically as isIDFIRST_utf8()

These two macros should have the same results for the same input code
points.  Prior to this patch, the _uni() macro returned the official
Unicode ID_Start property, and the _utf8() macro returned Perl's
slightly restricted definition.  Now both return Perl's.

1 files changed, 4 insertions, 0 deletions

diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t
index d6c8df69e4..4c852c51d4 100644
--- a/ext/XS-APItest/t/handy.t
+++ b/ext/XS-APItest/t/handy.t
@@ -57,6 +57,10 @@ foreach my $name (sort keys %properties) {
         last if $above_latins > 5;
     }
 
+    # This makes sure we are using the Perl definition of idfirst, and not the
+    # Unicode.  There are a few differences.
+    push @code_points, ord "\N{ESTIMATED SYMBOL}" if $name eq 'idfirst';
+
     # And finally one non-Unicode code point.
     push @code_points, 0x110000;    # Above Unicode, no prop should match
     no warnings 'non_unicode';