This is an automatically generated mail to inform you that tests are now
available in t/spec/S32-list/reduce.t
commit 67a3abcece85ef9a25dbc24de34ad9194720e90d
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Oct 26 21:48:22 2009 +0000
[t/spec] Test for RT 65668, List.reduce: &infix:<+>
git-svn-id: http://svn.pugscode.org/p...@28908
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S32-list/reduce.t b/t/spec/S32-list/reduce.t
index 5451e43..ccb2b2b 100644
--- a/t/spec/S32-list/reduce.t
+++ b/t/spec/S32-list/reduce.t
@@ -11,7 +11,7 @@
L<"http://groups.google.com/groups?selm=420DB295.3000902%40conway.org";>
=end description
-plan 14;
+plan *;
# L<S32::Containers/List/=item reduce>
@@ -63,4 +63,12 @@ is( list(1).reduce({$^a * $^b}), 0, "Reduce of one element
list produces correct
eval_lives_ok( 'reduce -> $a, $b, $c? { $a + $b * ($c//1) }, 1, 2', 'Use
proper arity calculation');
+#?rakudo skip 'RT 65668'
+{
+ is( ((1..10).list.reduce: &infix:<+>), 55, '.reduce: &infix:<+> works' );
+ is( ((1..4).list.reduce: &infix:<*>), 24, '.reduce: &infix:<*> works' );
+}
+
+done_testing;
+
# vim: ft=perl6
