Skip to content
Browse files

more typed exception tests

  • Loading branch information...
1 parent dca332d commit 0b7d7d247aceff7c37004755286fb0bf597a360d @moritz moritz committed Jan 23, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 S32-exceptions/misc.t
View
4 S32-exceptions/misc.t
@@ -37,6 +37,8 @@ throws_like '$&', X::Obsolete, old => '$@ variable', new => '$/ or $()';
throws_like 'do { $^x }', X::Placeholder::Block, placeholder => '$^x';
throws_like 'do { @_ }', X::Placeholder::Block, placeholder => '@_';
throws_like 'class { $^x }', X::Placeholder::Block, placeholder => '$^x';
-throws_like 'my @a; my @a', X::Redeclaration, symbol => '@a';
+throws_like 'my @a; my @a', X::Redeclaration, symbol => '@a';
+throws_like 'sub a { }; sub a { }',X::Redeclaration, symbol => 'a', what => 'routine';
+throws_like 'CATCH { }; CATCH { }', X::Phaser::Once, block => 'CATCH';
done;

0 comments on commit 0b7d7d2

Please sign in to comment.
Something went wrong with that request. Please try again.