This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a small test case for c445c5b
authorMatthew Horsfall <wolfsage@gmail.com>
Wed, 25 Jun 2014 14:31:20 +0000 (10:31 -0400)
committerMatthew Horsfall <wolfsage@gmail.com>
Wed, 25 Jun 2014 14:31:20 +0000 (10:31 -0400)
t/re/re_tests

index 78bacc9..57b5836 100644 (file)
@@ -1057,6 +1057,7 @@ X(?:ABCF[cC]x*|ABCD|ABCF):(?:DIT|DID|DIM) XABCFCxxxxxxxxxx:DIM    y       $&      XABCFCxxxxxx
 (?=foo)        foo     y       pos     0
 (?=foo)        XfooY   y       pos     1
 .*(?=foo)      XfooY   y       pos     1
+(?=.*P)P       aP      y       pos     2
 (?<=foo)       foo     y       pos     3
 (?<=foo)       XfooY   y       pos     4
 .*(?<=foo)     foo     y       pos     3