uni/class.t: Add test

This new test makes sure that a regular expression that forward
references a user-defined property works.

diff --git a/t/uni/class.t b/t/uni/class.t
index 40dbd9f..144ae43 100644 (file)
--- a/t/uni/class.t
+++ b/t/uni/class.t
@@ -4,7 +4,12 @@ BEGIN {
     require "test.pl";
 }
 
-plan tests => 10;
+plan tests => 11;
+
+my $str = join "", map latin1_to_native(chr($_)), 0x20 .. 0x6F;
+
+is(($str =~ /(\p{IsMyUniClass}+)/)[0], '0123456789:;<=>?@ABCDEFGHIJKLMNO',
+                                'user-defined class compiled before defined');
 
 sub IsMyUniClass {
   <<END;
@@ -50,8 +55,6 @@ sub test_regexp ($$) {
 
 use strict;
 
-my $str = join "", map latin1_to_native(chr($_)), 0x20 .. 0x6F;
-
 # make sure it finds built-in class
 is(($str =~ /(\p{Letter}+)/)[0], 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');
 is(($str =~ /(\p{l}+)/)[0], 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');