Add test for RT #111720

Raku · Jun 18, 2015 · 046ad7e · 046ad7e
1 parent 0867f11
commit 046ad7e
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/S32-array/pop.t b/S32-array/pop.t
@@ -9,7 +9,7 @@ Pop tests
 
 =end description
 
-plan 36;
+plan 37;
 
 { # pop() elements into variables
     my @pop = (-1, 1, 2, 3, 4);
@@ -97,4 +97,15 @@ plan 36;
     eval-dies-ok( 'pop @push', 'cannot pop from an Inf array' );
 } #1
 
+# RT #111720
+{
+    my @a = 1,2,3;
+    my $rt111720 = Array.new(@a) => "x";
+    $rt111720.key[0];
+    @a.pop();
+    #?rakudo todo 'RT #111720'
+    is $rt111720.keys.[0].join("-"), '1-2',
+        'reading first key in sink context does not influence later code';
+}
+
 # vim: ft=perl6