This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reg_mesg.t: Add tests
authorKarl Williamson <public@khwilliamson.com>
Sun, 17 Jun 2012 19:44:01 +0000 (13:44 -0600)
committerKarl Williamson <public@khwilliamson.com>
Wed, 20 Jun 2012 20:08:42 +0000 (14:08 -0600)
t/re/reg_mesg.t

index 476db59..b86fd41 100644 (file)
@@ -95,6 +95,10 @@ my @death =
 
  '/[\x{X]/' => 'Missing right brace on \x{} in regex; marked by {#} in m/[\x{{#}X]/',
 
+ '/\o{1/' => 'Missing right brace on \o{ in regex; marked by {#} in m/\o{{#}1/',
+
+ '/[\o{X]/' => 'Missing right brace on \o{ in regex; marked by {#} in m/[\o{{#}X]/',
+
  '/[[:barf:]]/' => 'POSIX class [:barf:] unknown in regex; marked by {#} in m/[[:barf:]{#}]/',
 
  '/[[=barf=]]/' => 'POSIX syntax [= =] is reserved for future extensions in regex; marked by {#} in m/[[=barf=]{#}]/',