Permalink
Browse files

another redeclaration test

  • Loading branch information...
1 parent 171ad0a commit 63626c2dc3401a52eb36ad85759a36bf81347ae2 @moritz moritz committed Feb 8, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 S32-exceptions/misc.t
View
@@ -71,6 +71,7 @@ throws_like 'sub (Int Str $x) { }', X::Parameter::MultipleTypeConstraints;
# even if the tests look rather boring;
throws_like 'my @a; my @a', X::Redeclaration, symbol => '@a';
throws_like 'sub a { }; sub a { }',X::Redeclaration, symbol => 'a', what => 'routine';
+throws_like 'sub a { }; multi sub a { }',X::Redeclaration, symbol => 'a', what => 'routine';
throws_like 'my class A { }; my class A { }', X::Redeclaration, symbol => 'A';
throws_like 'my class B { }; my subset B { }', X::Redeclaration, symbol => 'B';
throws_like 'CATCH { }; CATCH { }', X::Phaser::Multiple, block => 'CATCH';

0 comments on commit 63626c2

Please sign in to comment.