[install] add language Forth

git-svn-id: https://svn.parrot.org/parrot/trunk@43310 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

tools/install/smoke_languages.pl

@@ -10,7 +10,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 32;
+use Test::More tests => 33;
 
 =head1 NAME
 
@@ -237,6 +237,22 @@ sub quote {
 unlink($filename);
 }
 
+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'));