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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri Jun  4 11:46:17 2010
New Revision: 47350
URL: https://trac.parrot.org/parrot/changeset/47350

Log:
[install] fix some tests

Modified:
   trunk/tools/install/smoke.pl

Modified: trunk/tools/install/smoke.pl
==============================================================================
--- trunk/tools/install/smoke.pl	Fri Jun  4 08:59:42 2010	(r47349)
+++ trunk/tools/install/smoke.pl	Fri Jun  4 11:46:17 2010	(r47350)
@@ -108,12 +108,19 @@
 $filename = 'test.pg';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";
-print $FH "token TOP { \\s* }\n";
+print $FH <<'PGE';
+grammar WSpace
+
+token TOP { \s* }
+PGE
 close $FH;
-$out = `$parrot $libdir/PGE/Perl6Grammar.pir $filename`;
-ok($out =~ /^\n## <::TOP>/, "check PGE");
+$out = `$parrot $libdir/PGE/Perl6Grammar.pbc $filename`;
+ok($out =~ /## <WSpace::TOP>/, "check PGE");
 unlink($filename);
 
+SKIP:
+{
+skip("pirc", 1) unless (-e $pirc);
 $filename = 'test.pir';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";
@@ -126,6 +133,7 @@
 $out = `$pirc -n $filename`;
 ok($out eq "ok\n", "check pirc");
 unlink($filename);
+}
 
 $filename = 'test.nqp';
 open $FH, '>', $filename