[svn:parrot] r39434 - in trunk/tools: dev install
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Sat Jun 6 15:41:26 UTC 2009
Author: fperrad
Date: Sat Jun 6 15:41:26 2009
New Revision: 39434
URL: https://trac.parrot.org/parrot/changeset/39434
Log:
[languages] add steme (Tene++)
Modified:
trunk/tools/dev/fetch_languages.pl
trunk/tools/install/smoke_languages.pl
Modified: trunk/tools/dev/fetch_languages.pl
==============================================================================
--- trunk/tools/dev/fetch_languages.pl Sat Jun 6 14:23:03 2009 (r39433)
+++ trunk/tools/dev/fetch_languages.pl Sat Jun 6 15:41:26 2009 (r39434)
@@ -266,6 +266,12 @@
},
{
+ name => 'steme',
+ scm => 'GIT',
+ repository => 'git://github.com/tene/steme.git'
+ },
+
+ {
name => 'tcl',
scm => 'SVN',
repository => 'http://partcl.googlecode.com/svn/trunk'
Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl Sat Jun 6 14:23:03 2009 (r39433)
+++ trunk/tools/install/smoke_languages.pl Sat Jun 6 15:41:26 2009 (r39434)
@@ -9,7 +9,7 @@
use Getopt::Long;
use File::Spec::Functions;
-use Test::More tests => 31;
+use Test::More tests => 32;
=head1 NAME
@@ -489,6 +489,19 @@
SKIP:
{
+skip("steme", 1) unless (-d "$langdir/steme");
+$filename = 'test.scm';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "( say \"Hello, World!\" )\n";
+close $FH;
+$out = `$parrot $langdir/steme/steme.pbc $filename`;
+ok($out eq "Hello, World!\n", "check steme");
+unlink($filename);
+}
+
+SKIP:
+{
skip("Squaak", 1) unless (-d "$langdir/squaak");
$filename = 'test.squaak';
open $FH, '>', $filename
More information about the parrot-commits
mailing list