X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0b2d3faa276ad12850b3d1cb417e36a43029c4ec..3298f2576bd4718b372a9e51e1043fdf2c0a56ab:/t/op/re_tests

diff --git a/t/op/re_tests b/t/op/re_tests
index 3e11a91..d35104f 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -972,3 +972,7 @@ x(?#	x	c	-	Sequence (?#... not terminated
 X(A|B||C|D)Y	XXXYYY	y	$&	XY	# Trie w/ NOTHING
 (?i:X([A]|[B]|y[Y]y|[D]|)Y)	XXXYYYB	y	$&	XY	# Trie w/ NOTHING
 ^([a]{1})*$	aa	y	$1	a
+a(?!b(?!c))(..)	abababc	y	$1	bc	# test nested negatives
+a(?!b(?=a))(..)	abababc	y	$1	bc	# test nested lookaheads
+a(?!b(?!c(?!d(?!e))))...(.)	abxabcdxabcde	y	$1	e
+X(?!b+(?!(c+)*(?!(c+)*d))).*X	aXbbbbbbbcccccccccccccaaaX	y	-	-