another redeclaration test

Raku · Feb 8, 2012 · 63626c2 · 63626c2
1 parent 171ad0a
commit 63626c2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -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';