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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue Feb 17 21:31:36 2009
New Revision: 36842
URL: https://trac.parrot.org/parrot/changeset/36842

Log:
[install] add language matrixy

Modified:
   trunk/tools/install/smoke_languages.pl

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Tue Feb 17 21:00:17 2009	(r36841)
+++ trunk/tools/install/smoke_languages.pl	Tue Feb 17 21:31:36 2009	(r36842)
@@ -9,29 +9,29 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 28;
+use Test::More tests => 29;
 
 =head1 NAME
 
-tools/install/smoke-languages.pl - checks some languages in install directory
+tools/install/smoke_languages.pl - checks some languages in install directory
 
 =head1 SYNOPSIS
 
 parrot in install tree
 
     % cd /usr/local/parrot-$version
-    % perl tools/install/smoke-languages.pl
+    % perl tools/install/smoke_languages.pl
 
 parrot in build tree
 
-    % perl tools/install/smoke-languages.pl --bindir=.
+    % perl tools/install/smoke_languages.pl --bindir=.
 
 test installation in DESTDIR:
 
     % cd /usr/src/parrot
     % mkdir .inst
     % make install DESTDIR=.inst
-    % perl tools/install/smoke-languages.pl DESTDIR=.inst
+    % perl tools/install/smoke_languages.pl DESTDIR=.inst
 
 =head1 DESCRIPTION
 
@@ -277,6 +277,19 @@
 
 SKIP:
 {
+skip("matrixy", 1) unless (-d "$langdir/matrixy");
+$filename = 'test.oct';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH "printf(\"Hello, world!\n\");";
+close $FH;
+$out = `$parrot $langdir/matrixy/matrixy.pbc $filename`;
+ok($out eq "Hello, world!\n", "check matrixy");
+unlink($filename);
+}
+
+SKIP:
+{
 skip("Pheme", 1) unless (-d "$langdir/pheme");
 $filename = 'test.l';
 open $FH, '>', $filename