test rakudo sequence overmunching

Raku · May 30, 2012 · ef5c6d5 · ef5c6d5
1 parent e208a23
commit ef5c6d5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/S03-sequence/basic.t b/S03-sequence/basic.t
@@ -250,6 +250,10 @@ is ~(1...^*).[^10], '1 2 3 4 5 6 7 8 9 10', 'RT #73268';
 #?niecza skip '&[] NYI'
 is (1, 1, &[+] ... *).[^10], '1 1 2 3 5 8 13 21 34 55', 'use &[+] on infix:<...> series';
 
+# see http://irclog.perlgeek.de/perl6/2012-05-30#i_5659147 ff.
+# previously rakudo said Not enough positional parameters passed; got 3 but expected 4
+is(((1,1,2,4,8)[^4], *+*+*+* ... *)[4], 8, 'WhateverCode with arity > 3 gets enough arguments');
+
 done;
 
 # vim: ft=perl6