This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/pat_advanced.t: Add TODO test for recent regression
authorKarl Williamson <public@khwilliamson.com>
Sun, 30 Dec 2012 16:42:35 +0000 (09:42 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 31 Dec 2012 18:03:27 +0000 (11:03 -0700)
Commit 3018b823898645e44b8c37c70ac5c6302b031381 added a regression for
the Posix classes [:upper:] and [:lower:] when matching
case-insensitively.  If an above-Latin1 code point has been matched by
one of these classes at the time another regex is compiled which also
has the same class as the first one, and the second regex is /i, the
case-insensitivity is ignored.

t/re/pat_advanced.t

index fe640f4..5930ab2 100644 (file)
@@ -2141,6 +2141,14 @@ EOP
         ok(! $failed, "Matched multi-char fold across EXACTFish node boundaries; if failed, was at count $failed");
     }
 
+    {
+        local $::TODO = "Under /i loading the :lower: swash breaks later :lowers:";
+        fresh_perl_is('print eval "\"\x{101}\" =~ /[[:lower:]]/", "\n"; print eval "\"\x{100}\" =~ /[[:lower:]]/i", "\n";',
+                      "1\n1",   # Both re's should match
+                      "",
+                      "get [:lower:] swash in first eval; test under /i in second");
+    }
+
     #
     # Keep the following tests last -- they may crash perl
     #