Changeset 21162 for t/spec/S29-list/reduce.t
- Timestamp:
- 07/02/08 06:01:18 (5 months ago)
- Files:
-
- 1 modified
-
t/spec/S29-list/reduce.t (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S29-list/reduce.t
r20682 r21162 21 21 22 22 is((reduce { $^a + $^b }, 0, @array), $sum, "basic reduce works (1)"); 23 #?rakudo 2 skip 'adverbial closure'23 #?rakudo skip 'closure as non-final argument' 24 24 is((reduce { $^a + $^b }: 100, @array), 100 + $sum, "basic reduce works (2)"); 25 #?rakudo skip 'method fallback to sub unimpl' 25 26 is(({ $^a * $^b }.reduce: 1,2,3,4,5), 120, "basic reduce works (3)"); 26 27 } … … 35 36 36 37 # .reduce shouldn't work on non-arrays 38 ## XXX pmichaud, 2008-07-01: .reduce should work on non-list values 37 39 { 38 40 #?pugs 2 todo 'bug' … … 42 44 } 43 45 44 #?rakudo 4 skip ' parsefail'46 #?rakudo 4 skip '{} hash composer not implemented' 45 47 { 46 48 my $hash = {a => {b => {c => 42}}};
