[svn:parrot] r45962 - trunk/t/compilers/pct

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Apr 24 03:06:09 UTC 2010


Author: bacek
Date: Sat Apr 24 03:06:09 2010
New Revision: 45962
URL: https://trac.parrot.org/parrot/changeset/45962

Log:
Update test to use nqp-rx.

Modified:
   trunk/t/compilers/pct/complete_workflow.t

Modified: trunk/t/compilers/pct/complete_workflow.t
==============================================================================
--- trunk/t/compilers/pct/complete_workflow.t	Sat Apr 24 03:04:52 2010	(r45961)
+++ trunk/t/compilers/pct/complete_workflow.t	Sat Apr 24 03:06:09 2010	(r45962)
@@ -94,7 +94,7 @@
     # thingy() is executed before TOP.
     # So setting $?MY_OUR_VAR here won't affect the generated PAST
     our $?MY_OUR_VAR := 'was set in method TOP';
-    make $( $<thingy> );
+    make $<thingy>.ast;
 }
 
 method thingy($/) {
@@ -126,7 +126,7 @@
 
 method TOP($/) {
     our $?MY_OUR_VAR;
-    my $past := $( $<thingy> ); # $?MY_OUR_VAR has been set in thingy()
+    my $past := $<thingy>.ast; # $?MY_OUR_VAR has been set in thingy()
     $past[0][0].value( 'our var ' ~ $?MY_OUR_VAR );
 
     make $past;
@@ -181,18 +181,18 @@
 
 method TOP($/) {
     my $past := PAST::Stmts.new();
-    $past.push( $( $<scope_a> ) );
-    $past.push( $( $<scope_b> ) );
+    $past.push( $<scope_a>.ast );
+    $past.push( $<scope_b>.ast );
 
     make $past;
 }
 
 method scope_a($/) {
-   make $( $<thingy> );
+   make $<thingy>.ast;
 }
 
 method scope_b($/) {
-   make $( $<thingy> );
+   make $<thingy>.ast;
 }
 
 method INIT_SCOPE_A($/) {
@@ -244,7 +244,7 @@
 method TOP($/) {
     my $past := PAST::Stmts.new();
     for $<thingy_or_stuff> {
-        $past.push( $( $_ ) );
+        $past.push( $_.ast );
     }
 
     our $?MY_OUR_VAR;
@@ -254,7 +254,7 @@
 }
 
 method thingy_or_stuff($/,$key) {
-    make $( $/{$key} );
+    make $/{$key}.ast;
 }
 
 method THINGY($/) {
@@ -310,7 +310,7 @@
     my $PARROT        = "$BUILD_DIR/parrot$PConfig{exe}";
     my $PGE_LIBRARY   = "$BUILD_DIR/runtime/parrot/library/PGE";
     my $PERL6GRAMMAR  = "$PGE_LIBRARY/Perl6Grammar.pbc";
-    my $NQP           = "$BUILD_DIR/compilers/nqp/nqp.pbc";
+    my $NQP           = "$BUILD_DIR/parrot-nqp.pbc";
 
     my $tempfile_opts = {
          DIR      => $TEST_DIR,


More information about the parrot-commits mailing list