Add a small test case for c445c5b

Perl · Jun 25, 2014 · 06ab3c1 · 06ab3c1
1 parent d92f47a
commit 06ab3c1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/t/re/re_tests b/t/re/re_tests
@@ -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