diff options
author | Tony Cook <tony@develop-help.com> | 2020-10-19 15:04:28 +1100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2021-01-06 17:40:29 +0000 |
commit | 57edf1d256c8267868c4c9c44962dd4721d8c2b5 (patch) | |
tree | ca3a48573363b67e679b14af1f84068972d3f23e | |
parent | 536520b4a24d012a8aa0690f044f651300258171 (diff) | |
download | perl-57edf1d256c8267868c4c9c44962dd4721d8c2b5.tar.gz |
some extra tests as suggested by hvds
(cherry picked from commit 3c43dd64639f7fbccb6ff32f0e82d007d2cde710)
-rw-r--r-- | t/lib/croak/regcomp | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/t/lib/croak/regcomp b/t/lib/croak/regcomp index 74e70ed363..a203f136fd 100644 --- a/t/lib/croak/regcomp +++ b/t/lib/croak/regcomp @@ -120,8 +120,63 @@ qr/(*negative_lookbehind:a\Ka)a/; EXPECT \K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(*negative_lookbehind:a\K <-- HERE a)a/ at - line 2. ######## +# NAME \K nesting in lookahead after lookahead +qr{(?=(?=x)x\K)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?=(?=x)x\K <-- HERE )x/ at - line 1. +######## +# NAME \K nesting in lookahead after negative lookahead +qr{(?=(?!y)x\K)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?=(?!y)x\K <-- HERE )x/ at - line 1. +######## +# NAME \K nesting in lookahead in negative lookahead +qr{(?=(?!y\K)x)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?=(?!y\K <-- HERE )x)x/ at - line 1. +######## +# NAME \K nesting in lookahead in lookahead +qr{(?=(?=x\K)x)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?=(?=x\K <-- HERE )x)x/ at - line 1. +######## +# NAME \K nesting in lookbehind after lookbehind +qr{(?<=(?<=x)x\K)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?<=(?<=x)x\K <-- HERE )x/ at - line 1. +######## +# NAME \K nesting in lookahead after lookbehind +qr{(?=(?<=x)x\K)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?=(?<=x)x\K <-- HERE )x/ at - line 1. +######## +# NAME \K nesting in lookbehind after lookahead +qr{(?<=(?=x)x\K)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?<=(?=x)x\K <-- HERE )x/ at - line 1. +######## +# NAME \K nesting in negative lookbehind after lookahead +qr{(?<!(?=x)x\K)x}; +EXPECT +\K not permitted in lookahead/lookbehind in regex; marked by <-- HERE in m/(?<!(?=x)x\K <-- HERE )x/ at - line 1. +######## # NAME \K is permitted after the lookahead GH#18123 qr/(?=(?=x)x)\K/; +qr/(?!(?=x)x)\K/; +qr/(?=(?!x)x)\K/; +qr/(?!(?!x)x)\K/; +qr/(?<=(?=x)x)\K/; +qr/(?<!(?=x)x)\K/; +qr/(?<=(?!x)x)\K/; +qr/(?<!(?!x)x)\K/; +qr/(?=(?<=x)x)\K/; +qr/(?!(?<=x)x)\K/; +qr/(?=(?<!x)x)\K/; +qr/(?!(?<!x)x)\K/; +qr/(?<=(?<=x)x)\K/; +qr/(?<!(?<=x)x)\K/; +qr/(?<=(?<!x)x)\K/; +qr/(?<!(?<!x)x)\K/; EXPECT OPTIONS nonfatal ######## |