This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/pat.t: tests for RT #21491
authorDan Collins <dcollinsn@gmail.com>
Tue, 5 Jul 2016 20:29:10 +0000 (16:29 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:44 +0000 (09:09 +0200)
t/re/pat.t

index d0449e2..8a56227 100644 (file)
@@ -23,7 +23,7 @@ BEGIN {
     skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;
     skip_all_without_unicode_tables();
 
-plan tests => 799;  # Update this when adding/deleting tests.
+plan tests => 800;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -1796,6 +1796,10 @@ EOP
             like("sS", qr/\N{}Ss|/i, "\N{} with empty branch alternation works");
         }
 
+    TODO: {
+        local $::TODO = "RT #21491: m'' interpolates escape sequences";
+        is(0+("\n" =~ m'\n'), 0, q|RT #21491: m'\n' should not interpolate|);
+    }
 } # End of sub run_tests
 
 1;