[svn:parrot] r36634 - in trunk: . tools/install

[fperrad at svn.parrot.org]

Author: fperrad
Date: Thu Feb 12 13:40:14 2009
New Revision: 36634
URL: https://trac.parrot.org/parrot/changeset/36634

Log:
[install] add pirc

Modified:
   trunk/MANIFEST.generated
   trunk/tools/install/smoke.pl

Modified: trunk/MANIFEST.generated
==============================================================================
--- trunk/MANIFEST.generated	Thu Feb 12 13:39:12 2009	(r36633)
+++ trunk/MANIFEST.generated	Thu Feb 12 13:40:14 2009	(r36634)
@@ -86,6 +86,8 @@
 pbc_to_exe.exe                                    [main]bin
 pdb                                               [main]bin
 pdb.exe                                           [main]bin
+pirc                                              [main]bin
+pirc.exe                                          [main]bin
 runtime/parrot/dynext/apl_group.bundle            [library]
 runtime/parrot/dynext/apl_group.dll               [library]
 runtime/parrot/dynext/apl_group.dylib             [library]

Modified: trunk/tools/install/smoke.pl
==============================================================================
--- trunk/tools/install/smoke.pl	Thu Feb 12 13:39:12 2009	(r36633)
+++ trunk/tools/install/smoke.pl	Thu Feb 12 13:40:14 2009	(r36634)
@@ -9,7 +9,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 23;
+use Test::More tests => 24;
 
 =head1 NAME
 
@@ -71,6 +71,7 @@
 my $out;
 my $FH;
 my $parrot = catfile($bindir, 'parrot');
+my $pirc = catfile($bindir, 'pirc');
 
 #
 # parrot executable
@@ -99,6 +100,19 @@
 ok($out =~ /^\n## <::TOP>/, "check PGE");
 unlink($filename);
 
+$filename = 'test.pir';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH <<'PIR';
+.sub main
+    say "hello world!"
+.end
+PIR
+close $FH;
+$out = `$pirc -n $filename`;
+ok($out eq "ok\n", "check pirc");
+unlink($filename);
+
 # compilers/tge is typically not installed
 $filename = 'test.tg';
 open $FH, '>', $filename