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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sun Sep 20 12:15:38 2009
New Revision: 41375
URL: https://trac.parrot.org/parrot/changeset/41375

Log:
[languages] add Blizkost

Modified:
   trunk/tools/install/smoke_languages.pl

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Sun Sep 20 05:09:35 2009	(r41374)
+++ trunk/tools/install/smoke_languages.pl	Sun Sep 20 12:15:38 2009	(r41375)
@@ -10,7 +10,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 32;
+use Test::More tests => 33;
 
 =head1 NAME
 
@@ -133,6 +133,27 @@
 
 SKIP:
 {
+if (-d "$pwd/$langdir/blizkost") {
+    chdir("$pwd/$langdir/blizkost");
+}
+elsif (-d "$pwd/$langdir/perl5") {
+    chdir("$pwd/$langdir/perl5");
+}
+else {
+    skip("blizkost", 1)
+}
+$filename = 'test.pl';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH "print qq{Hello, World!\n};\n";
+close $FH;
+$out = `$parrot perl5.pbc $filename`;
+ok($out eq "Hello, World!\n" || $out eq "Hello, World!\r\n", "check blizkost");
+unlink($filename);
+}
+
+SKIP:
+{
 skip("Cardinal", 1) unless (-d "$pwd/$langdir/cardinal");
 chdir("$pwd/$langdir/cardinal");
 $out = `$parrot cardinal.pbc -e "print 'hello world';"`;