[pge] Fix another test

git-svn-id: https://svn.parrot.org/parrot/branches/tt389_fix@43526 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
fernandobrito · Jan 21, 2010 · d9edfcc · d9edfcc
1 parent 4dfbcf2
commit d9edfcc
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/t/compilers/pge/06-grammar.t b/t/compilers/pge/06-grammar.t
@@ -150,7 +150,7 @@ EOF_SIMPLE_GRAMMAR
     .local string target
                   target = shift targets
 
-    ok = '_match_expr'( parser, target )
+    ok = '_match_expr'( parser, target, test_name )
     test.'ok'( ok, description )
     $I0 = targets
     if $I0 goto next_target
@@ -173,6 +173,7 @@ EOF_SIMPLE_GRAMMAR
 .sub '_match_expr'
     .param pmc    parser
     .param string expr
+    .param string grammar
 
     .local int ok
     .local string result, test_name, test_num_str
@@ -183,7 +184,7 @@ EOF_SIMPLE_GRAMMAR
     load_bytecode 'PGE/Perl6Grammar.pbc'
 
     ok        = 1
-    match     = parser(expr)
+    match     = parser(expr, 'grammar' => grammar)
     result    = match
 
     if result == expr goto match_ok