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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue Dec 29 11:33:50 2009
New Revision: 43310
URL: https://trac.parrot.org/parrot/changeset/43310

Log:
[install] add language Forth

Modified:
   trunk/tools/install/smoke_languages.pl

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Tue Dec 29 10:50:36 2009	(r43309)
+++ trunk/tools/install/smoke_languages.pl	Tue Dec 29 11:33:50 2009	(r43310)
@@ -10,7 +10,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 32;
+use Test::More tests => 33;
 
 =head1 NAME
 
@@ -239,6 +239,22 @@
 
 SKIP:
 {
+$exe = quote(catfile($pwd, $bindir, 'parrot-forth'));
+skip("fun", 1) unless (-d "$pwd/$langdir/forth" || -e $exe);
+chdir("$pwd/$langdir/forth");
+$filename = 'test.frt';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH ".\" Hello World!\" CR";
+close $FH;
+$exe = "$parrot forth.pbc" unless (-e $exe);
+$out = `$exe $filename`;
+ok($out eq "Hello World!\n", "check forth");
+unlink($filename);
+}
+
+SKIP:
+{
 $exe = quote(catfile($pwd, $bindir, 'parrot-gil'));
 skip("gil", 1) unless (-d "$pwd/$langdir/gil" || -e $exe);
 chdir("$pwd/$langdir/gil");