Re: Regex-Unicode bugs

Message-ID: <20020328101235.F678@rafael>

p4raw-id: //depot/perl@15609

diff --git a/t/op/regmesg.t b/t/op/regmesg.t
index 82f6ee9..8728aee 100644 (file)
--- 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{{#}}/',
 );
 
 ##