diff options
| author | Karl Williamson <khw@cpan.org> | 2016-02-16 12:08:20 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-02-16 12:12:41 -0700 |
| commit | 856d91b3be3773bade9513292a31e4c032f5f6a1 (patch) | |
| tree | ac9ffec94a8df817b765a445b82ca473bf32cd99 /t | |
| parent | e42a763ce995f992cba5e79089f7898234887b55 (diff) | |
| download | perl-856d91b3be3773bade9513292a31e4c032f5f6a1.tar.gz | |
t/re/reg_mesg.t: Add a couple of tests
Diffstat (limited to 't')
| -rw-r--r-- | t/re/reg_mesg.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 8482425731..6ec5d94534 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -188,6 +188,8 @@ my @death = '/[z-a]/' => 'Invalid [] range "z-a" {#} m/[z-a{#}]/', '/\p/' => 'Empty \p {#} m/\p{#}/', + '/\P/' => 'Empty \P {#} m/\P{#}/', + '/\p{}/' => 'Empty \p{} {#} m/\p{{#}}/', '/\P{}/' => 'Empty \P{} {#} m/\P{{#}}/', '/a\b{cde/' => 'Missing right brace on \b{} {#} m/a\b{{#}cde/', |