From: Matthew Horsfall <wolfsage@gmail.com>
Date: Wed, 25 Jun 2014 14:31:20 +0000 (-0400)
Subject: Add a small test case for c445c5b
X-Git-Tag: v5.21.2~126
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/06ab3c155013050b54920c009cdc2c564e86a6a3?ds=sidebyside

Add a small test case for c445c5b
---

diff --git a/t/re/re_tests b/t/re/re_tests
index 78bacc9..57b5836 100644
--- 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