summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2016-03-10 12:10:38 -0700
committerKarl Williamson <khw@cpan.org>2016-03-10 12:13:59 -0700
commitf4b6841fd0c905f3a35c8233786352f253b00ba2 (patch)
tree0a79b0b04f820b0b8efe9e4480885d505e4d138f /t
parent3d860744f242683742ba97ad753bc8a1ee061dac (diff)
downloadperl-f4b6841fd0c905f3a35c8233786352f253b00ba2.tar.gz
t/re/reg_mesg.t: Add some more tests
Diffstat (limited to 't')
-rw-r--r--t/re/reg_mesg.t4
1 files changed, 4 insertions, 0 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t
index 2d7bd85e06..f08c70805d 100644
--- a/t/re/reg_mesg.t
+++ b/t/re/reg_mesg.t
@@ -262,6 +262,10 @@ my @death =
'/((?# This is a comment in the middle of a token)?:foo)/' => 'In \'(?...)\', the \'(\' and \'?\' must be adjacent {#} m/((?# This is a comment in the middle of a token)?{#}:foo)/',
'/((?# This is a comment in the middle of a token)*FAIL)/' => 'In \'(*VERB...)\', the \'(\' and \'*\' must be adjacent {#} m/((?# This is a comment in the middle of a token)*{#}FAIL)/',
'/(?[\ &!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\ &!{#}])/', # [perl #126180]
+ '/(?[\ +!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\ +!{#}])/', # [perl #126180]
+ '/(?[\ -!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\ -!{#}])/', # [perl #126180]
+ '/(?[\ ^!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\ ^!{#}])/', # [perl #126180]
+ '/(?[\ |!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\ |!{#}])/', # [perl #126180]
'/(?[()-!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[()-!{#}])/', # [perl #126204]
'/(?[!()])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[!(){#}])/', # [perl #126404]
);