Test for X::Syntax::ArgFlattener exception.

Raku · Apr 2, 2015 · 72ca1c1 · 72ca1c1
1 parent 849f96c
commit 72ca1c1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -3,7 +3,7 @@ use Test;
 use lib "t/spec/packages";
 use Test::Util;
 
-plan 287;
+plan 289;
 
 throws_like '42 +', X::AdHoc, "missing rhs of infix", message => rx/term/;
 
@@ -613,4 +613,8 @@ throws_like { $*an_undeclared_dynvar = 42 }, X::Dynamic::NotFound;
 # RT #117859
 throws_like 'class Foo { trusts Bar }', X::Undeclared, symbol => 'Bar', what => 'Type';
 
+throws_like 'my $a = |(1, 2, 3)', X::Syntax::ArgFlattener;
+throws_like 'sub foo($x) { }; foo({ |(1, 2, 3) })', X::Syntax::ArgFlattener;
+
+
 # vim: ft=perl6