added tests for loop labels

t/nqp/83-loop-labels.t

@@ -0,0 +1,73 @@
+plan(11);
+
+my $i := 0; # counter
+my $k := 0; # counter
+my $t := 0; # test variable
+
+# sanity
+while $i++ < 7 { while $k++ < 3 { $t := $i * $k } }
+is($t, 3, 'basic nested while loop sanity check');
+
+$i := 0;
+$t := 0;
+while $i++ < 7 { $k := 0; while $k++ < 3 { $t := $i * $k } }
+is($t, 21, 'basic nested while loop sanity check #2');
+
+# without label in inner loop
+$i := 0;
+$t := 0;
+while $i++ < 7 { $k := 0; while $k++ < 3 { $t := $i * $k; last } }
+is($t, 7, 'last without label in inner loop');
+
+$i := 0;
+$t := 0;
+while $i++ < 7 { $k := 0; while $k++ < 3 { $t := $i * $k; redo if $i++ == 7 } }
+is($t, 24, 'redo without label in inner loop');
+
+$i := 0;
+$t := 0;
+while $i++ < 7 { $k := 0; while $k++ < 3 { next if $k == 3; $t := $i * $k } }
+is($t, 14, 'next without label in inner loop');
+
+# without label in outer loop
+$i := 0;
+$t := 0;
+while $i++ < 7 { $k := 0; while $k++ < 3 { $t := $i * $k }; last if $i == 2 }
+is($t, 6, 'last without label in outer loop');
+
+$i := 0;
+$t := 0;
+while $i++ < 7 { $k := 0; while $k++ < 3 { $t := $i * $k }; redo if $i == 7 && ($i := $i + 2) }
+is($t, 27, 'redo without label in outer loop');
+
+$i := 0;
+$t := 0;
+while $i++ < 7 { next if $i > 5; $k := 0; while $k++ < 3 { $t := $i * $k } }
+is($t, 15, 'next without label in outer loop');
+
+# with outer loop's label in inner loop
+$i := 0;
+$t := 0;
+TESTA: while $i++ < 7 { $k := 0; while $k++ < 3 { $t := $i * $k; last TESTA if $i == 2 && $k == 3 } }
+is($t, 6, "last with outer loop's label in inner loop");
+
+$i := 0;
+$t := 0;
+TESTB: while $i++ < 7 { $k := 0; while $k++ < 3 { $t := $i * $k; redo TESTB if $i == 7 && ($i := $i + 2) } }
+is($t, 27, "redo with outer loop's label in inner loop");
+
+$i := 0;
+$t := 0;
+TESTC: while $i++ < 7 { $k := 0; while $k++ < 3 { next TESTC if $i > 5; $t := $i * $k } }
+is($t, 15, "next with outer loop's label in inner loop");
+
+
+sub is($a, $b, $text) {
+    if $a == $b {
+        ok(1, $text)
+    }
+    else {
+        ok(0, $text);
+        say("# Expected '$b' bot got '$a'")
+    }
+}