[perl #66330] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-introspection/walk.t

commit cc81d63c2c6fd91dd85c16c45c0862fd2a26f040
Author: jnthn <jn...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Jun 20 11:52:34 2010 +0000

    [t/spec] Add a test for RT#66330 to walk.t. Also tweak a couple of tests 
that won't quite work; things passed into :omit and :include need to be a 
little more careful since they'll be invoked with Mu at some point, which in 
this case didn't end too well.
    
    git-svn-id: http://svn.pugscode.org/p...@31391 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-introspection/walk.t b/t/spec/S12-introspection/walk.t
index 8737870..c83c50d 100644
--- a/t/spec/S12-introspection/walk.t
+++ b/t/spec/S12-introspection/walk.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 10;
+plan 11;
 
 =begin pod
 
@@ -91,17 +91,21 @@ sub cand_order(@cands, $instance) {
 # :include
 {
     my $x = E.new;
-    my @cands = $x.WALK(:name<m>, :include(regex { <[CDE]> }));
-    #?rakudo skip ':include fails'
+    my @cands = $x.WALK(:name<m>, :include({ ~$^c ~~ regex { <[CDE]> } }));
     is cand_order(@cands, $x), 'ECD', ':include works';
 }
 
 # :include and :omit
 {
     my $x = E.new;
-    my @cands = $x.WALK(:name<m>, :include(regex { <[CDE]> }), :omit({ 
.^can('n') }));
-    #?rakudo skip ':include/:omit together fail'
+    my @cands = $x.WALK(:name<m>, :include({ ~$^c ~~ regex { <[CDE]> } }), 
:omit({ .^can('n') }));
     is cand_order(@cands, $x), 'D', ':include and :omit together work';
 }
 
+# Grammar.WALK had issues once
+{
+    my ($meth) = Grammar.WALK(:name<parse>);
+    is $meth.name, 'parse', 'Grammar.WALK works';
+}
+
 # vim: ft=perl6