diff --git a/S04-statements/sink.t b/S04-statements/sink.t index 0dc805560d..2168890cfe 100644 --- a/S04-statements/sink.t +++ b/S04-statements/sink.t @@ -1,7 +1,7 @@ use v6; use Test; -plan 3; +plan 4; # RT #117235 { @@ -21,3 +21,10 @@ plan 3; my ($a) = class { method sink { $sunk = True } }.new; is $sunk, False, 'my ($a) = ... does not trigger sinking'; } + +# RT #127879 +{ + my @results = gather for 1..1 { ^10 .map: *.take } + + is @results, "0 1 2 3 4 5 6 7 8 9", "map inside sunk 'for' runs as sunk"; +}