[svn:parrot] r37891 - in trunk/tools: dev install

fperrad at svn.parrot.org fperrad at svn.parrot.org
Fri Apr 3 14:41:37 UTC 2009


Author: fperrad
Date: Fri Apr  3 14:41:36 2009
New Revision: 37891
URL: https://trac.parrot.org/parrot/changeset/37891

Log:
[languages] add porcupine(pascal)

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	Fri Apr  3 14:05:19 2009	(r37890)
+++ trunk/tools/dev/fetch_languages.pl	Fri Apr  3 14:41:36 2009	(r37891)
@@ -218,6 +218,12 @@
     },
 
     {
+        name       => 'porcupine',
+        scm        => 'SVN',
+        repository => 'http://porcupinepascal.googlecode.com/svn/trunk'
+    },
+
+    {
         name       => 'primitivearc',
         scm        => 'GIT',
         repository => 'git://github.com/stefano/primitivearc.git'

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Fri Apr  3 14:05:19 2009	(r37890)
+++ trunk/tools/install/smoke_languages.pl	Fri Apr  3 14:41:36 2009	(r37891)
@@ -258,7 +258,7 @@
 print $FH "Hello, World!\n\n";
 close $FH;
 $out = `$parrot $langdir/markdown/markdown.pbc $filename`;
-ok($out eq "<p>Hello, World!</p>\n\n", "check markdown");
+ok($out eq "<p>Hello, World!</p>\n", "check markdown");
 unlink($filename);
 }
 
@@ -316,6 +316,24 @@
 
 SKIP:
 {
+skip("porcupine", 1) unless (-d "$langdir/porcupine");
+$filename = 'test.pas';
+open $FH, '>', $filename
+        or die "Can't open $filename ($!).\n";
+print $FH <<'CODE';
+program hello;
+begin
+    writeln('Hello, world!');
+end.
+CODE
+close $FH;
+$out = `$parrot $langdir/porcupine/porcupine.pbc $filename`;
+ok($out eq "Hello, world!\n", "check porcupine");
+unlink($filename);
+}
+
+SKIP:
+{
 skip("primitivearc", 1) unless (-d "$langdir/primitivearc");
 $filename = 'test.arc';
 open $FH, '>', $filename


More information about the parrot-commits mailing list