This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a TODO test for RT 111842
authorAbigail <abigail@abigail.be>
Mon, 19 Mar 2012 16:16:21 +0000 (17:16 +0100)
committerAbigail <abigail@abigail.be>
Mon, 19 Mar 2012 16:16:21 +0000 (17:16 +0100)
t/re/pat_advanced.t

index 43db3d4..775f663 100644 (file)
@@ -2069,6 +2069,11 @@ EOP
         like("\xC0", $p, "Verify \"\\xC0\" =~ /[\\xE0_]/i; pattern in utf8");
     }
 
+    {
+        local $::TODO = 'RT #111842';
+        ok "x" =~ /\A(?>(?:(?:)A|B|C?x))\z/, "EXACT nodetypes";
+    }
+
     #
     # Keep the following tests last -- they may crash perl
     #