[svn:parrot] r43526 - branches/tt389_fix/t/compilers/pge

tene at svn.parrot.org tene at svn.parrot.org
Thu Jan 21 07:39:45 UTC 2010


Author: tene
Date: Thu Jan 21 07:39:44 2010
New Revision: 43526
URL: https://trac.parrot.org/parrot/changeset/43526

Log:
[pge] Fix another test

Modified:
   branches/tt389_fix/t/compilers/pge/06-grammar.t

Modified: branches/tt389_fix/t/compilers/pge/06-grammar.t
==============================================================================
--- branches/tt389_fix/t/compilers/pge/06-grammar.t	Thu Jan 21 07:34:44 2010	(r43525)
+++ branches/tt389_fix/t/compilers/pge/06-grammar.t	Thu Jan 21 07:39:44 2010	(r43526)
@@ -150,7 +150,7 @@
     .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 @@
 .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 @@
     load_bytecode 'PGE/Perl6Grammar.pbc'
 
     ok        = 1
-    match     = parser(expr)
+    match     = parser(expr, 'grammar' => grammar)
     result    = match
 
     if result == expr goto match_ok


More information about the parrot-commits mailing list