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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Nov 14 17:06:10 2009
New Revision: 42508
URL: https://trac.parrot.org/parrot/changeset/42508

Log:
[install] add nqp-rx

Modified:
   trunk/tools/install/smoke.pl

Modified: trunk/tools/install/smoke.pl
==============================================================================
--- trunk/tools/install/smoke.pl	Sat Nov 14 14:35:45 2009	(r42507)
+++ trunk/tools/install/smoke.pl	Sat Nov 14 17:06:10 2009	(r42508)
@@ -9,7 +9,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 =head1 NAME
 
@@ -66,7 +66,7 @@
 my $FH;
 my $parrot = catfile($bindir, 'parrot');
 my $pirc = catfile($bindir, 'pirc');
-my $nqp = catfile($bindir, 'parrot_nqp');
+my $nqp = catfile($bindir, 'parrot-nqp');
 
 #
 # parrot executable
@@ -126,7 +126,7 @@
 print $FH "say('hello world!');\n";
 close $FH;
 $out = `$nqp $filename`;
-ok($out eq "hello world!\n", "check nqp");
+ok($out eq "hello world!\n", "check nqp-rx");
 unlink($filename);
 
 # compilers/tge is typically not installed
@@ -139,6 +139,16 @@
 ok($out =~ /^\n\.sub '_ROOT_past'/, "check TGE");
 unlink($filename);
 
+# compilers/nqp is typically not installed
+$filename = 'test.nqp';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH "say('hello world!');\n";
+close $FH;
+$out = `$parrot $compdir/nqp/nqp.pbc $filename`;
+ok($out eq "hello world!\n", "check nqp");
+unlink($filename);
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4