Add test for RT #122095

Raku · Feb 4, 2015 · b4b8ab1 · b4b8ab1
1 parent 31571a4
commit b4b8ab1
Showing 1 changed file with 15 additions and 1 deletion.
diff --git a/S04-statements/for.t b/S04-statements/for.t
@@ -4,7 +4,7 @@ use MONKEY_TYPING;
 
 use Test;
 
-plan 87;
+plan 88;
 
 =begin description
 
@@ -620,4 +620,18 @@ is (for 5 { (sub { "OH HAI" })() }), "OH HAI", 'Anon sub inside for works.';
     is $a, 'a', '$0 works in substition in for loop (2)';
 }
 
+# RT #122095
+{
+    my class RT122095 {};
+    my $a = RT122095.new();
+    my $w = $a.WHICH;
+    my $good = True;
+    for 0 .. 20000 {
+        if $a.WHICH ne $w {
+            $good = False;
+        }
+    };
+    is $good, True, '.WHICH value did not change in for loop';
+}
+
 # vim: ft=perl6