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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri Mar 13 13:47:34 2009
New Revision: 37382
URL: https://trac.parrot.org/parrot/changeset/37382

Log:
[install] check befunge (partial revert of r37264)

Modified:
   trunk/tools/install/smoke_languages.pl

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Fri Mar 13 09:20:01 2009	(r37381)
+++ trunk/tools/install/smoke_languages.pl	Fri Mar 13 13:47:34 2009	(r37382)
@@ -9,7 +9,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 29;
+use Test::More tests => 30;
 
 =head1 NAME
 
@@ -93,6 +93,30 @@
 
 SKIP:
 {
+skip("Befunge", 1) unless (-d "$langdir/befunge");
+$filename = 'test.bef';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH <<'CODE';
+<                   p 04   "v"
+  ^ >
+I                       @   _v
+                            !,
+  _   2! |                  :
+    . \-  %2/36 `21  $   <  ^<   "<- then everything is ok!" +37
+  !      #
+  3      >
+         <       v  ,  _ ^# -8 : g20 "f you can see a 4 here ->" 8 4
+                 > :8- ^
+CODE
+close $FH;
+$out = `$parrot $langdir/befunge/befunge.pbc $filename`;
+ok($out eq "If you can see a 4 here ->4 <- then everything is ok!\n", "check befunge");
+unlink($filename);
+}
+
+SKIP:
+{
 skip("bf", 3) unless (-d "$langdir/bf");
 $out = `$parrot $langdir/bf/bf.pbc`;
 ok($out =~ /^usage/, "check bf");