Add test for RPA.map

Author: bacek

t/setting/01-resizablepmcarray.t

@@ -5,7 +5,7 @@ pir::load_bytecode('nqp-setting.pbc');
 my @array := <0 1 2>;
 my @reversed := @array.reverse();
 
-plan(11);
+plan(13);
 
 ok( @reversed[0] == 2, 'First element correct');
 ok( @reversed[1] == 1, 'Second element correct');
@@ -26,4 +26,9 @@ ok( @test[1] eq 'cherry', '@test[1] was deleted');
 ok( +@test == 2, '@test[1] has two items');
 ok( !@test.exists(2), '@test[2] no longer exists');
 
+@test := <1 2 3>;
+my @res := @test.map(sub($a) { $a~$a; });
+ok( +@res == 3, 'Map produced same number of elements');
+ok( @res.join() eq '112233', 'Map produced correct elements');
+
 # vim: ft=perl6