This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Add a TODO test for RT 111842
[perl5.git]
/
t
/
re
/
pat_advanced.t
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
#