test statement-modifying "when"

Raku · Oct 1, 2011 · 27a2b93 · 27a2b93
1 parent ac23be8
commit 27a2b93
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S04-statements/given.t b/S04-statements/given.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 48;
+plan 49;
 
 =begin pod
 
@@ -296,5 +296,13 @@ Tests the given block, as defined in L<S04/"Switch statements">
     is $x, 42, 'given tests 1-arg subs for truth';
 }
 
+# statement-modifying 'when'
+{
+    my $tracker = 1;
+    given 1 {
+        $tracker++ when 1;
+    }
+    is $tracker, 2, 'statement-modifying when';
+}
 
 # vim: ft=perl6