This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/regex_sets.t: Generalize for non-ASCII platforms
authorKarl Williamson <public@khwilliamson.com>
Mon, 25 Mar 2013 20:59:50 +0000 (14:59 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:25 +0000 (21:48 -0700)
t/re/regex_sets.t

index 6e986ce..c880897 100644 (file)
@@ -9,6 +9,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = ('../lib','.','../ext/re');
     require './test.pl';
+    require './test.pl'; require './charset_tools.pl';
     skip_all_without_unicode_tables();
 }
 
@@ -24,10 +25,10 @@ like("a", qr/(?[ [a]      # This is a comment
                     ])/, 'Can ignore a comment');
 like("a", qr/(?[ [a]      # [[:notaclass:]]
                     ])/, 'A comment isn\'t parsed');
-unlike("\x85", qr/(?[ \t\85 ])/, 'NEL is white space');
-unlike("\x85", qr/(?[ [\t\85] ])/, '... including within nested []');
-like("\x85", qr/(?[ \t + \\85 ])/, 'can escape NEL to match');
-like("\x85", qr/(?[ [\\85] ])/, '... including within nested []');
+unlike(uni_to_native("\x85"), qr/(?[ \t\85 ])/, 'NEL is white space');
+unlike(uni_to_native("\x85"), qr/(?[ [\t\85] ])/, '... including within nested []');
+like(uni_to_native("\x85"), qr/(?[ \t + \\85 ])/, 'can escape NEL to match');
+like(uni_to_native("\x85"), qr/(?[ [\\85] ])/, '... including within nested []');
 like("\t", qr/(?[ \t + \\85 ])/, 'can do basic union');
 like("\cK", qr/(?[ \s ])/, '\s matches \cK');
 unlike("\cK", qr/(?[ \s - \cK ])/, 'can do basic subtraction');