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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue Feb 10 15:38:25 2009
New Revision: 36537
URL: https://trac.parrot.org/parrot/changeset/36537

Log:
[install] remove perl6, mark lisp as broken

Modified:
   trunk/tools/install/smoke.pl

Modified: trunk/tools/install/smoke.pl
==============================================================================
--- trunk/tools/install/smoke.pl	Tue Feb 10 15:21:34 2009	(r36536)
+++ trunk/tools/install/smoke.pl	Tue Feb 10 15:38:25 2009	(r36537)
@@ -9,7 +9,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 25;
+use Test::More tests => 23;
 
 =head1 NAME
 
@@ -24,7 +24,7 @@
 
 parrot in .
 
-    % perl tools/install/smoke.pl --bindir=.
+    % perl tools/install/smoke.pl --bindir=. --libdir=./runtime
 
 test installation in DESTDIR:
 
@@ -86,10 +86,6 @@
 
 ok(system("$parrot -V") == 0, "display parrot version");
 
-$exe = catfile($bindir, 'perl6');
-$out = `$exe -v`;
-ok($out =~ /Rakudo/, "check rakudo");
-
 #
 # some compiler tools
 #
@@ -167,6 +163,8 @@
 ok($out eq "Hello World from JS\n\n", "check ecmascript");
 unlink($filename);
 
+TODO: {
+local $TODO = "lisp is currently broken";
 $filename = 'test.l';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";
@@ -175,6 +173,7 @@
 $out = `$parrot languages/lisp/lisp.pbc $filename`;
 ok($out eq "Hello, World!\n", "check lisp");
 unlink($filename);
+}
 
 $filename = 'test.lolcode';
 open $FH, '>', $filename
@@ -195,9 +194,6 @@
 $out = `$parrot languages/ook/ook.pbc`;
 ok($out eq q{}, "check ook");
 
-$out = `$parrot languages/perl6/perl6.pbc -e "say 'hello world'"`;
-ok($out eq "hello world\n", "check rakudo");
-
 $filename = 'test.l';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";