Add a TODO test for RT 111842

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 43db3d4..775f663 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -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
     #