This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/re_tests: revise test
authorKarl Williamson <public@khwilliamson.com>
Wed, 21 Dec 2011 16:54:38 +0000 (09:54 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 19 Jan 2012 18:58:17 +0000 (11:58 -0700)
This is the wrong test for the cited ticket.  That one is for tests
occurring in bracketed character classes.

t/re/re_tests

index b0ea9ab..8002732 100644 (file)
@@ -1536,7 +1536,7 @@ abc\N{def -       c       -       \\N{NAME} must be resolved by the lexer
 /^\p{L}/       \x{3400}        y       $&      \x{3400}
 
 # RT #89774
-/s\xDF/ui      \xDFs   yT      $&      \xDFs
+/[s\xDF]/ui    \xDFs   ybT     $&      \xDFs
 
 # RT #99928
 /^\R\x0A$/     \x0D\x0A        n       -       -
@@ -1555,4 +1555,8 @@ abc\N{def -       c       -       \\N{NAME} must be resolved by the lexer
 /[[:lower:]]/i \x{100} y       $&      \x{100}
 /[[:upper:]]/i \x{101} y       $&      \x{101}
 
+# Was matching 'ss' only and failing the entire match, not seeing the
+# alternative that would succeed
+/s\xDF/ui      \xDFs   yT      $&      \xDFs
+
 # vim: softtabstop=0 noexpandtab