summaryrefslogtreecommitdiff
path: root/t/op/regmesg.t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2002-03-28 11:12:35 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-29 17:25:26 +0000
commit5528c7ba85dedba29ee9be8b67a5c1c177b8b183 (patch)
tree931ccac1eeb671a8c1f2e2f6eb9c7ea4a871700b /t/op/regmesg.t
parent25cf8c221694f204b8dcdb15a864ea224c360401 (diff)
downloadperl-5528c7ba85dedba29ee9be8b67a5c1c177b8b183.tar.gz
Re: Regex-Unicode bugs
Message-ID: <20020328101235.F678@rafael> p4raw-id: //depot/perl@15609
Diffstat (limited to 't/op/regmesg.t')
-rw-r--r--t/op/regmesg.t4
1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/regmesg.t b/t/op/regmesg.t
index 82f6ee9e7b..8728aee263 100644
--- a/t/op/regmesg.t
+++ b/t/op/regmesg.t
@@ -78,6 +78,10 @@ my @death =
'/[[.barf.]]/' => 'POSIX syntax [. .] is reserved for future extensions in regex; marked by {#} in m/[[.barf.]{#}]/',
'/[z-a]/' => 'Invalid [] range "z-a" in regex; marked by {#} in m/[z-a{#}]/',
+
+ '/\p/' => 'Empty \p{} in regex; marked by {#} in m/\p{#}/',
+
+ '/\P{}/' => 'Empty \P{} in regex; marked by {#} in m/\P{{#}}/',
);
##