This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pat_advanced.t: Update test
authorKarl Williamson <khw@cpan.org>
Thu, 14 Nov 2019 15:43:33 +0000 (08:43 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 16 Nov 2019 18:12:14 +0000 (11:12 -0700)
This test was no longer exercising the code it once had, because ':'
doesn't go in a folded regnode.  Change to use a character that does
have a fold.

And doing so shows that something in the past broke this test.  This
branch will fix that; in the meantime make some tests TODO

t/re/pat_advanced.t

index b4f32ee..635f5bb 100644 (file)
@@ -2152,7 +2152,8 @@ EOP
         "Check TRIE does not overwrite EXACT following NOTHING at start - RT #111842";
 
     {
-        my $single = ":";
+        local $::TODO = "Broken";
+        my $single = "z";
         my $upper = "\x{390}";  # Fold is 3 chars.
         my $multi = CORE::fc($upper);