diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-03-13 09:12:22 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-04-08 12:29:21 +0800 |
| commit | 0d0584ef248effe31fbb6e24eb1cb0c576f6672d (patch) | |
| tree | 1da18503158f75f1b9e69289654c7378d513836d /t | |
| parent | df743cbf85cf589c9fe4d2df31f2f64c356ce959 (diff) | |
| download | perl-0d0584ef248effe31fbb6e24eb1cb0c576f6672d.tar.gz | |
reg_mesg.t: check that ACCEPT in capturing variable length lookbehind warns
Diffstat (limited to 't')
| -rw-r--r-- | t/re/reg_mesg.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 4ce966d86c..9a26bdbfde 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -747,6 +747,12 @@ my @experimental_vlb = ( '/(?| (?=(foo)) | (?<!(foo)|p) )/x' => 'Variable length negative lookbehind with capturing' . ' is experimental {#} m/(?| (?=(foo)) | (?<!(foo)|p) ){#}/', + '/(?<!(foo|bop(*ACCEPT)|bar)baz)/' + => 'Variable length negative lookbehind with capturing' . + ' is experimental {#} m/(?<!(foo|bop(*ACCEPT)|bar)baz){#}/', + '/(?<=(foo|bop(*ACCEPT)|bar)baz)/' + => 'Variable length positive lookbehind with capturing' . + ' is experimental {#} m/(?<=(foo|bop(*ACCEPT)|bar)baz){#}/', ); my @wildcard = ( |