Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (15 sloc) 488 Bytes
use v6;
use Test;
plan 2;
# L<S32::Containers/"List"/"=item map">
my $text = "abc";
my %ret;
# XXX depends on the Pair stringification which is likely going to change
#?rakudo skip "Awaiting p6l clarification on Hash composer/block"
%ret = map { $_ => uc $_; }, $text.comb;
is ~%ret.sort, "a\tA b\tB c\tC", "=> works in a map block";
%ret = map { $_, uc $_ }, $text.comb;
is ~%ret.sort, "a\tA b\tB c\tC", "map called with function return values works";
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.