Add test that when /regex/ sets $/ properly.

Author: colomon

S04-statements/given.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 51;
+plan 52;
 
 =begin pod
 
@@ -309,4 +309,12 @@ Tests the given block, as defined in L<S04/"Switch statements">
 eval_lives_ok 'given 3 { sub a() { } }', 'can define a sub inside a given';
 eval_lives_ok 'sub a() { } given 3',     'can define a sub inside a statement-modifying given';
 
+{
+    my $capture-is-correct = False;
+    given "Hello" { 
+        when /e(\w\w)/ { $capture-is-correct = $0 eq "ll"; } 
+    }
+    ok $capture-is-correct, 'matches in when correctly set $0';
+}
+
 # vim: ft=perl6