This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/re_tests: Correct Todo test
authorKarl Williamson <public@khwilliamson.com>
Mon, 6 Aug 2012 22:42:27 +0000 (16:42 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 12 Aug 2012 01:32:30 +0000 (19:32 -0600)
This test was not doing what it purported to test.  It should show that
a /[s\xDF]/i would not match 'ss', because the 's' is seen in the class,
and not the \xDF (which matches 'ss' under /i) in the appropriate
strings

t/re/re_tests

index 3fdaf80..e8bd714 100644 (file)
@@ -1543,7 +1543,7 @@ a\97      a97     y       $&      a97
 /^\p{L}/       \x{3400}        y       $&      \x{3400}
 
 # RT #89774
-/[s\xDF]/ui    \xDFs   ybT     $&      \xDFs
+/[s\xDF]a/ui   ssa     ybT     $&      ssa
 
 # RT #99928
 /^\R\x0A$/     \x0D\x0A        n       -       -