test that all statement modifiers are terminators

S04-statement-modifiers/for.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 28;
+plan 29;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -158,4 +158,9 @@ is ((sub r { "OH HAI" })() for 5), "OH HAI", 'Anon sub in statement modifier for
     is ($_ for $[1,2,3]).elems, 1, "does for modifier respect itemization";
 }
 
+# RT #79174
+{
+    is (1,2, for 3,4), "1 2 1 2", "for is a terminator even after comma";
+}
+
 # vim: ft=perl6

S04-statement-modifiers/given.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 11;
+plan 12;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -75,4 +75,9 @@ plan 11;
     is @a, (0, 0, 1, 1), 'given thunk does not mess up statement modifier closures';
 }
 
+# RT #79174
+{
+    is (1,2, given 3), "1 2", "given is a terminator even after comma";
+}
+
 # vim: ft=perl6

S04-statement-modifiers/if.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 13;
+plan 14;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -85,4 +85,9 @@ plan 13;
     is $a, 100, 'Statement-modifier if runs block with placeholder';
 }
 
+# RT #79174
+{
+    is (1,2, if 3), "1 2", "if is a terminator even after comma";
+}
+
 # vim: ft=perl6

S04-statement-modifiers/unless.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 8;
+plan 9;
 
 # test the unless statement modifier
 
@@ -50,4 +50,9 @@ plan 8;
     is $a, 0, 'Statement-modifier unless runs block with placeholder';
 }
 
+# RT #79174
+{
+    is (1,2, unless 0), "1 2", "unless is a terminator even after comma";
+}
+
 # vim: ft=perl6

S04-statement-modifiers/until.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 4;
+plan 5;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -35,4 +35,9 @@ plan 4;
     is($a, 2, "post until");
 }
 
+# RT #79174
+{
+    eval-lives-ok '1,2, until $++', "until is a terminator even after comma";
+}
+
 # vim: ft=perl6

S04-statement-modifiers/while.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 5;
+plan 6;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -42,4 +42,9 @@ plan 5;
     is($a, 3, "post while");
 }
 
+# RT #79174
+{
+    eval-lives-ok '1,2, while $++ < 1', "while is a terminator even after comma";
+}
+
 # vim: ft=perl6

S04-statement-modifiers/with.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 34;
+plan 35;
 
 # Test the topical aspects of the with statement modifier
 
@@ -207,4 +207,9 @@ plan 34;
     is @x, '(Failure)', 'without/for list comprehension works with parens';
 }
 
+# RT #79174
+{
+    is (1,2, with 3), "1 2", "with is a terminator even after comma";
+}
+
 # vim: ft=perl6

S04-statement-modifiers/without.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 8;
+plan 9;
 
 # test the unless statement modifier
 
@@ -54,4 +54,9 @@ plan 8;
     is $a.WHAT, Failure, 'Statement-modifier without runs block with placeholder';
 }
 
+# RT #79174
+{
+    is (1,2, without Nil), "1 2", "without is a terminator even after comma";
+}
+
 # vim: ft=perl6