diff options
author | Karl Williamson <khw@cpan.org> | 2016-03-10 12:10:38 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2016-03-10 12:13:59 -0700 |
commit | f4b6841fd0c905f3a35c8233786352f253b00ba2 (patch) | |
tree | 0a79b0b04f820b0b8efe9e4480885d505e4d138f /t | |
parent | 3d860744f242683742ba97ad753bc8a1ee061dac (diff) | |
download | perl-f4b6841fd0c905f3a35c8233786352f253b00ba2.tar.gz |
t/re/reg_mesg.t: Add some more tests
Diffstat (limited to 't')
-rw-r--r-- | t/re/reg_mesg.t | 4 |
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] ); |