Tests for block s.m. given/if/unless.

Includes a test for RT #78142.

S04-statement-modifiers/given.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 8;
+plan 10;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -56,4 +56,16 @@ plan 8;
     is $a, 'many pelmeni', 'Correct $_ in try block in statement-modifying given';
 }
 
+{
+    my $a;
+    { $a = $^x } given 69;
+    is $a, 69, 'given modifier with $_-using block runs block with correct arg';
+}
+
+{
+    my $a;
+    { $a = $^x } given 42;
+    is $a, 42, 'given modifier with placeholder block runs block with correct arg';
+}
+
 # vim: ft=perl6

S04-statement-modifiers/if.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 11;
+plan 13;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -72,4 +72,17 @@ plan 11;
     is (42 if 0), Nil, '"$something if 0" is Nil';
 }
 
+{
+    my $a = 'oops';
+    { $a = 'ok' } if 1;
+    is $a, 'ok', 'Statement-modifier if runs bare block';
+}
+
+# RT #78142
+{
+    my $a = 'oops';
+    { $a = $^x } if 100;
+    is $a, 100, 'Statement-modifier if runs block with placeholder';
+}
+
 # vim: ft=perl6

S04-statement-modifiers/unless.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 6;
+plan 8;
 
 # test the unless statement modifier
 
@@ -38,5 +38,16 @@ plan 6;
         is @x, @y, "unless expr on false cond";
 }
 
+{
+    my $a = 'oops';
+    { $a = 'ok' } unless 0;
+    is $a, 'ok', 'Statement-modifier unless runs bare block';
+}
+
+{
+    my $a = 'oops';
+    { $a = $^x } unless 0;
+    is $a, 0, 'Statement-modifier unless runs block with placeholder';
+}
 
 # vim: ft=perl6