Skip to content

Commit

Permalink
fix a test I broke earlier, moritz--
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Aug 3, 2011
1 parent 37d802d commit add4718
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion S32-list/reduce.t
Expand Up @@ -44,7 +44,7 @@ plan 13;
my $hash = {a => {b => {c => 42}}};
my @reftypes;
sub foo (Hash $hash, Str $key) {
push @reftypes, $hash.WHAT.gist;
push @reftypes, $hash.WHAT;
$hash.{$key};
}
is((reduce(&foo, $hash, <a b c>)), 42, 'reduce(&foo) (foo ~~ .{}) works three levels deep');
Expand Down

0 comments on commit add4718

Please sign in to comment.