This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/warnings/utf8: Fix improper TODO test
authorKarl Williamson <public@khwilliamson.com>
Wed, 3 Jul 2013 04:05:31 +0000 (22:05 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 4 Jul 2013 03:09:51 +0000 (21:09 -0600)
This had the wrong syntax, but it wasn't caught because it is TODO
anyway.

t/lib/warnings/utf8

index 1274cf9..02507b3 100644 (file)
@@ -652,9 +652,9 @@ Code point 0x110000 is not Unicode, all \p{} matches fail; all \P{} matches succ
 ########
 # TODO optimized regnode should still give warnings
 use warnings 'utf8';
-chr(0x110000) =~ /lb=cr/;
+chr(0x110000) =~ /\p{lb=cr}/;
 no warnings 'non_unicode';
-chr(0x110000) =~ /lb=cr/;
+chr(0x110000) =~ /\p{lb=cr}/;
 EXPECT
 Code point 0x110000 is not Unicode, all \p{} matches fail; all \P{} matches succeed at - line 2.
 ########