[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