Permalink
Browse files

Fix broken test. Fudge for niecza.

  • Loading branch information...
1 parent ed292ed commit 3bf852efe778ead29f03b316d184aedb2b972494 @colomon colomon committed Jan 10, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 S32-list/reduce.t
View
3 S32-list/reduce.t
@@ -29,6 +29,7 @@ plan 13;
my $result = (((1 + 2 * 3) + 4 * 5) + 6 * 7) + 8 * Any;
#?rakudo skip 'n-ary reduce'
+ #?niecza skip 'n-ary reduce'
is (@array.reduce: { $^a + $^b * $^c }), $result, "n-ary reduce() works";
}
@@ -54,7 +55,7 @@ plan 13;
}
#?rakudo todo 'Reduce of one element list. See #61610'
-is( (1).list.reduce({$^a * $^b}), 0, "Reduce of one element list produces correct result");
+is( (1).list.reduce({$^a * $^b}), 1, "Reduce of one element list produces correct result");
eval_lives_ok( 'reduce -> $a, $b, $c? { $a + $b * ($c//1) }, 1, 2', 'Use proper arity calculation');

0 comments on commit 3bf852e

Please sign in to comment.