Tests for RT #131865

Author: jnthn

S07-hyperrace/hyper.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 40;
+plan 41;
 
 {
     my @result = <a b c d e f g>.hyper.map({ $_.uc });
@@ -153,3 +153,12 @@ dies-ok { sink (1..1000).hyper.grep: { die } },
     is (^10).hyper.map(&f).list, (0, 1, 4, 9, 16, 25, 36, 49, 64, 81),
         "hyper map with a multi sub works";
 }
+
+# RT #131865
+{
+    my atomicint $got = 0;
+    for <a b c>.hyper {
+        $got⚛++
+    }
+    is $got, 3, 'for <a b c>.hyper { } actually iterates';
+}

S07-hyperrace/race.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 29;
+plan 30;
 
 {
     my @result = <a b c d e f g>.race.map({ $_.uc });
@@ -132,3 +132,12 @@ dies-ok { sink (1..1000).race.grep: { die } },
     is (^10).race.map(&f).list.sort, (0, 1, 4, 9, 16, 25, 36, 49, 64, 81),
         "race map with a multi sub works";
 }
+
+# RT #131865
+{
+    my atomicint $got = 0;
+    for <a b c>.race {
+        $got⚛++
+    }
+    is $got, 3, 'for <a b c>.race { } actually iterates';
+}