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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sun Mar  8 12:45:11 2009
New Revision: 37204
URL: https://trac.parrot.org/parrot/changeset/37204

Log:
[install] add language Paraplegic (APL)

Modified:
   trunk/tools/install/smoke_languages.pl

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Sun Mar  8 12:29:10 2009	(r37203)
+++ trunk/tools/install/smoke_languages.pl	Sun Mar  8 12:45:11 2009	(r37204)
@@ -9,7 +9,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 29;
+use Test::More tests => 30;
 
 =head1 NAME
 
@@ -277,6 +277,19 @@
 
 SKIP:
 {
+skip("Paraplegic", 1) unless (-d "$langdir/paraplegic");
+$filename = 'test.apl';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH "\"Hello world!\"";
+close $FH;
+$out = `$parrot $langdir/paraplegic/APL.pbc $filename`;
+ok($out eq "Hello world!\n", "check Paraplegic");
+unlink($filename);
+}
+
+SKIP:
+{
 skip("Pheme", 1) unless (-d "$langdir/pheme");
 $filename = 'test.l';
 open $FH, '>', $filename