[svn:parrot] r41885 - trunk/tools/install

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri Oct 16 08:09:38 2009
New Revision: 41885
URL: https://trac.parrot.org/parrot/changeset/41885

Log:
[install] since r41417 , NQP is installed as an executable parrot_nqp

Modified:
   trunk/tools/install/smoke.pl

Modified: trunk/tools/install/smoke.pl
==============================================================================
--- trunk/tools/install/smoke.pl	Thu Oct 15 19:34:31 2009	(r41884)
+++ trunk/tools/install/smoke.pl	Fri Oct 16 08:09:38 2009	(r41885)
@@ -66,6 +66,7 @@
 my $FH;
 my $parrot = catfile($bindir, 'parrot');
 my $pirc = catfile($bindir, 'pirc');
+my $nqp = catfile($bindir, 'parrot_nqp');
 
 #
 # parrot executable
@@ -119,24 +120,23 @@
 ok($out eq "ok\n", "check pirc");
 unlink($filename);
 
-# compilers/tge is typically not installed
-$filename = 'test.tg';
+$filename = 'test.nqp';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";
-print $FH "transform past (ROOT) { }\n";
+print $FH "say('hello world!');\n";
 close $FH;
-$out = `$parrot $compdir/tge/tgc.pir $filename`;
-ok($out =~ /^\n\.sub '_ROOT_past'/, "check TGE");
+$out = `$nqp $filename`;
+ok($out eq "hello world!\n", "check nqp");
 unlink($filename);
 
-# compilers/nqp is typically not installed
-$filename = 'test.nqp';
+# compilers/tge is typically not installed
+$filename = 'test.tg';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";
-print $FH "say('hello world!');\n";
+print $FH "transform past (ROOT) { }\n";
 close $FH;
-$out = `$parrot $compdir/nqp/nqp.pbc $filename`;
-ok($out eq "hello world!\n", "check nqp");
+$out = `$parrot $compdir/tge/tgc.pir $filename`;
+ok($out =~ /^\n\.sub '_ROOT_past'/, "check TGE");
 unlink($filename);
 
 # Local Variables: