summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2000-08-03 19:25:30 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2000-08-03 23:40:37 +0000
commit4b2cff9afa2c02937e1460d801fda356385d3841 (patch)
treefb2ccd078536f7ff30909684dc3dc6aecd3b4635 /t
parent659239a4cd11b2ba8db82db8b10f3ce574b1b819 (diff)
downloadperl-4b2cff9afa2c02937e1460d801fda356385d3841.tar.gz
[ID 20000803.001] further regexp counting problems
Message-Id: <200008031725.SAA10580@crypt.compulink.co.uk> p4raw-id: //depot/perl@6508
Diffstat (limited to 't')
-rw-r--r--t/op/re_tests12
1 files changed, 12 insertions, 0 deletions
diff --git a/t/op/re_tests b/t/op/re_tests
index 8df1fc9f5f..38483253d3 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -756,6 +756,18 @@ tt+$ xxxtt y - -
^(.,){2}c a,b,c y $1 b,
^(?:[^,]*,){2}c a,b,c y - -
^([^,]*,){2}c a,b,c y $1 b,
+^([^,]*,){3}d aaa,b,c,d y $1 c,
+^([^,]*,){3,}d aaa,b,c,d y $1 c,
+^([^,]*,){0,3}d aaa,b,c,d y $1 c,
+^([^,]{1,3},){3}d aaa,b,c,d y $1 c,
+^([^,]{1,3},){3,}d aaa,b,c,d y $1 c,
+^([^,]{1,3},){0,3}d aaa,b,c,d y $1 c,
+^([^,]{1,},){3}d aaa,b,c,d y $1 c,
+^([^,]{1,},){3,}d aaa,b,c,d y $1 c,
+^([^,]{1,},){0,3}d aaa,b,c,d y $1 c,
+^([^,]{0,3},){3}d aaa,b,c,d y $1 c,
+^([^,]{0,3},){3,}d aaa,b,c,d y $1 c,
+^([^,]{0,3},){0,3}d aaa,b,c,d y $1 c,
(?i) y - -
'(?!\A)x'm a\nxb\n y - -
^(a(b)?)+$ aba y -$1-$2- -a--