[perl #67864] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S05-match/blocks.t

commit 2f97978bac871ca9d2669c4b1050ac4a8b0c523d
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Jul 24 19:38:30 2009 +0000

    [t/spec] test for RT #67864
    
    git-svn-id: http://svn.pugscode.org/p...@27710 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S05-match/blocks.t b/t/spec/S05-match/blocks.t
index 5ef8f68..4210fb7 100644
--- a/t/spec/S05-match/blocks.t
+++ b/t/spec/S05-match/blocks.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 20;
+plan 21;
 
 =begin description
 
@@ -67,6 +67,17 @@ ok !defined($/), '$/ still undef in the outer block';
     is "$/",   'x', '... and can use $/ outside the block';
 }
 
+{
+    given '-Wall' {
+        if /\w+/ {
+            #?rakudo todo 'RT 67864'
+            ok $/ eq 'Wall', '$/ is properly set in a given { } block';
+        } else {
+            flunk 'regex did not match - $/ is properly set in a given { } 
block';
+        }
+    }
+}
+
 # TODO: repeat ... until, gather/take, lambdas, if/unless statement modifiers
 # TODO: move to t/spec/integration/