From b6012e0cd755d9c89ddff00dc45ce81a82bcbdcc Mon Sep 17 00:00:00 2001
From: TimToady <larry@wall.org>
Date: Tue, 9 Aug 2016 13:25:41 -0700
Subject: [PATCH] RT #127879; map inside sunk 'for' runs as sunk

---
 S04-statements/sink.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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";
+}