This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/re_tests: Add tests for multi-char fold bug
authorKarl Williamson <public@khwilliamson.com>
Fri, 14 Oct 2011 01:50:10 +0000 (19:50 -0600)
committerKarl Williamson <public@khwilliamson.com>
Fri, 14 Oct 2011 02:44:11 +0000 (20:44 -0600)
This problem has to do with two multi-char folded constants in a row in
the string being matched.

Spotted by Tom Christiansen

t/re/re_tests

index 5a4eaed..5a9b5db 100644 (file)
@@ -1541,4 +1541,9 @@ abc\N{def -       c       -       \\N{NAME} must be resolved by the lexer
 # RT #99928
 /^\R\x0A$/     \x0D\x0A        yT      $&      \x0D\x0A
 
+/ff/i  \x{FB00}\x{FB01}        y       $&      \x{FB00}
+/ff/i  \x{FB01}\x{FB00}        yT      $&      \x{FB00}
+/fi/i  \x{FB01}\x{FB00}        y       $&      \x{FB01}
+/fi/i  \x{FB00}\x{FB01}        yT      $&      \x{FB01}
+
 # vim: softtabstop=0 noexpandtab