[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