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
[perl5.git] / 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
     #