[svn:parrot] r36776 - in trunk: . tools/install
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Sun Feb 15 21:03:42 UTC 2009
Author: fperrad
Date: Sun Feb 15 21:03:40 2009
New Revision: 36776
URL: https://trac.parrot.org/parrot/changeset/36776
Log:
[install] filename convention
Added:
trunk/tools/install/smoke_languages.pl
- copied unchanged from r36774, trunk/tools/install/smoke-languages.pl
Deleted:
trunk/tools/install/smoke-languages.pl
Modified:
trunk/MANIFEST
trunk/MANIFEST.SKIP
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST Sun Feb 15 21:00:12 2009 (r36775)
+++ trunk/MANIFEST Sun Feb 15 21:03:40 2009 (r36776)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Feb 15 11:09:08 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Feb 15 21:00:30 2009 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -2606,6 +2606,7 @@
t/native_pbc/integer_2.pbc [test]
t/native_pbc/integer_3.pbc [test]
t/native_pbc/integer_4.pbc [test]
+t/native_pbc/integer_5.pbc [test]
t/native_pbc/number.t [test]
t/native_pbc/number_1.pbc [test]
t/native_pbc/number_2.pbc [test]
@@ -2938,6 +2939,7 @@
tools/dev/debian_docs.sh []
tools/dev/gen_charset_tables.pl []
tools/dev/gen_class.pl []
+tools/dev/gen_makefile.pl []
tools/dev/install_dev_files.pl []
tools/dev/install_files.pl []
tools/dev/lib_deps.pl []
@@ -2975,8 +2977,8 @@
tools/docs/func_boilerplate.pl []
tools/docs/ops_summary.pl []
tools/docs/write_docs.pl []
-tools/install/smoke-languages.pl []
tools/install/smoke.pl []
+tools/install/smoke_languages.pl []
tools/util/crow.pir []
tools/util/dump_pbc.pl []
tools/util/gen_release_info.pl []
Modified: trunk/MANIFEST.SKIP
==============================================================================
--- trunk/MANIFEST.SKIP Sun Feb 15 21:00:12 2009 (r36775)
+++ trunk/MANIFEST.SKIP Sun Feb 15 21:03:40 2009 (r36776)
@@ -1,6 +1,6 @@
# ex: set ro:
# $Id$
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Feb 15 11:23:41 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Feb 15 21:00:30 2009 UT
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
@@ -249,8 +249,6 @@
^compilers/tge/Makefile$
^compilers/tge/Makefile/
# generated from svn:ignore of 'compilers/tge/TGE/'
-^compilers/tge/TGE/.*\.pbc$
-^compilers/tge/TGE/.*\.pbc/
^compilers/tge/TGE/Parser\.pir$
^compilers/tge/TGE/Parser\.pir/
# generated from svn:ignore of 'config/gen/call_list/'
Deleted: trunk/tools/install/smoke-languages.pl
==============================================================================
--- trunk/tools/install/smoke-languages.pl Sun Feb 15 21:03:40 2009 (r36775)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,442 +0,0 @@
-#! perl
-# Copyright (C) 2007-2009, The Perl Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use 5.008;
-
-use Getopt::Long;
-use File::Spec::Functions;
-
-use Test::More tests => 25;
-
-=head1 NAME
-
-tools/install/smoke-languages.pl - checks some languages in install directory
-
-=head1 SYNOPSIS
-
-parrot in install tree
-
- % cd /usr/local/parrot-$version
- % perl tools/install/smoke-languages.pl
-
-parrot in build tree
-
- % perl tools/install/smoke-languages.pl --bindir=.
-
-test installation in DESTDIR:
-
- % cd /usr/src/parrot
- % mkdir .inst
- % make install DESTDIR=.inst
- % perl tools/install/smoke-languages.pl DESTDIR=.inst
-
-=head1 DESCRIPTION
-
-Checks that most of things run (or just start) into the install directory,
-try to detect missing parts.
-
-=head1 OPTIONS
-
-=over
-
-=item --bindir=/usr/bin
-
-Override default value : 'bin'
-
-=back
-
-=cut
-
-my ($bindir, $DESTDIR);
-my $opts = GetOptions(
- 'bindir=s' => \$bindir,
- 'DESTDIR=s' => \$DESTDIR,
-);
-
-$bindir = 'bin' unless $bindir;
-
-chdir $DESTDIR if ($DESTDIR);
-
-my $filename;
-my $exe;
-my $out;
-my $FH;
-my $parrot = catfile($bindir, 'parrot');
-
-$out = `$parrot -V`;
-$out =~ m/version (\S+) built/;
-my $version = $1;
-
-my $langdir = ($bindir eq 'bin')
- ? "lib/parrot/$version/languages"
- : 'languages';
-
-#
-# some languages
-#
-
-SKIP:
-{
-skip("abc", 1) unless (-d "$langdir/abc");
-$filename = 'test.bc';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "1 + 2\n";
-close $FH;
-$out = `$parrot $langdir/abc/abc.pbc $filename`;
-ok($out eq "3\n", "check abc");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("APL", 1) unless (-d "$langdir/apl");
-$filename = 'test.apl';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "\"Hello world!\"";
-close $FH;
-$out = `$parrot $langdir/APL/APL.pbc $filename`;
-ok($out eq "Hello world!\n", "check APL");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("bf", 3) unless (-d "$langdir/bf");
-$out = `$parrot $langdir/bf/bf.pbc`;
-ok($out =~ /^usage/, "check bf");
-$out = `$parrot $langdir/bf/bfc.pbc`;
-ok($out =~ /^usage/, "check bfc");
-$out = `$parrot $langdir/bf/bfco.pbc`;
-ok($out =~ /^usage/, "check bfco");
-}
-
-SKIP:
-{
-skip("Cardinal", 1) unless (-d "$langdir/cardinal");
-$out = `$parrot $langdir/cardinal/cardinal.pbc -e "print 'hello world';"`;
-ok($out eq "hello world", "check cardinal");
-}
-
-SKIP:
-{
-skip(".NET", 3) unless (-d "$langdir/dotnet");
-$out = `$parrot $langdir/dotnet/net2pbc.pbc`;
-ok($out =~ /^Usage/, "check dotnet");
-}
-
-SKIP:
-{
-skip("EcmaScript", 3) unless (-d "$langdir/ecmascript");
-$filename = 'test.js';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "print(\"Hello World from JS\\n\");";
-close $FH;
-$out = `$parrot $langdir/ecmascript/js.pbc $filename`;
-ok($out eq "Hello World from JS\n\n", "check ecmascript");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("gil", 1) unless (-d "$langdir/gil");
-$filename = 'test.gil';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH q{say('Hello, world!');};
-close $FH;
-$out = `$parrot $langdir/gil/gil.pbc $filename`;
-ok($out eq "Hello, world!\n", "check gil");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("HQ9Plus", 1) unless (-d "$langdir/hq9plus");
-$filename = 'test.HQ9Plus';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "H";
-close $FH;
-$out = `$parrot $langdir/hq9plus/hq9plus.pbc $filename`;
-ok($out eq "Hello, world!\n", "check HQ9Plus");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Lisp", 1) unless (-d "$langdir/lisp");
-$filename = 'test.l';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "( print \"Hello, World!\" )\n";
-close $FH;
-$out = `$parrot $langdir/lisp/lisp.pbc $filename`;
-ok($out eq "Hello, World!\n", "check lisp");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Lua", 1) unless (-d "$langdir/lua");
-$out = `$parrot $langdir/lua/lua.pbc -e "print(nil)"`;
-ok($out eq "nil\n", "check lua");
-}
-
-SKIP:
-{
-skip("LOLCODE", 1) unless (-d "$langdir/lolcode");
-$filename = 'test.lolcode';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH <<'CODE';
-HAI 1.2
- VISIBLE "HAI WORLD!"
-KTHXBYE
-CODE
-close $FH;
-$out = `$parrot $langdir/lolcode/lolcode.pbc $filename`;
-ok($out eq "HAI WORLD!\n", "check lolcode");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("m4", 1) unless (-d "$langdir/m4");
-$out = `$parrot $langdir/m4/m4.pbc`;
-ok($out =~ /^Usage/, "check m4");
-}
-
-SKIP:
-{
-skip("Markdown", 1) unless (-d "$langdir/markdown");
-$filename = 'test.text';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-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");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Pheme", 1) unless (-d "$langdir/pheme");
-$filename = 'test.l';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "( write \"Hello, World!\\n\" )\n";
-close $FH;
-$out = `$parrot $langdir/pheme/pheme.pbc $filename`;
-ok($out eq "Hello, World!\n", "check pheme");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Pipp", 1) unless (-d "$langdir/pipp");
-$filename = 'test.php';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "<?php echo \"Hello, World!\\n\"; ?>";
-close $FH;
-$out = `$parrot $langdir/pipp/pipp.pbc $filename`;
-ok($out eq "Hello, World!\n", "check pipp");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("primitivearc", 1) unless (-d "$langdir/primitivearc");
-$filename = 'test.arc';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH q{"Hello, world!\n"};
-close $FH;
-$out = `$parrot $langdir/primitivearc/arc.pbc $filename`;
-ok($out eq "Hello, world!\n\n", "check primitivearc");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Punie", 1) unless (-d "$langdir/punie");
-$filename = 'test.p1';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "print \"Hello, World!\\n\";\n";
-close $FH;
-$out = `$parrot $langdir/punie/punie.pbc $filename`;
-ok($out eq "Hello, World!\n", "check punie");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Pynie", 1) unless (-d "$langdir/pynie");
-$filename = 'test.py';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "print 'Hello, World!'\n";
-close $FH;
-$out = `$parrot $langdir/pynie/pynie.pbc $filename`;
-ok($out eq "Hello, World!\n", "check pynie");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Rakudo", 2) unless (-d "$langdir/rakudo");
-$out = `$parrot $langdir/rakudo/perl6.pbc -e "say 'hello world'"`;
-ok($out eq "hello world\n", "check rakudo");
-
-$exe = catfile($bindir, 'perl6');
-$out = `$exe -v`;
-ok($out =~ /Rakudo/, "check rakudo");
-}
-
-SKIP:
-{
-skip("Shakespeare", 1) unless (-d "$langdir/shakespeare");
-$filename = 'test.spl';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH <<'CODE';
-The Infamous Hello World Program.
-
-Romeo, a young man with a remarkable patience.
-Juliet, a likewise young woman of remarkable grace.
-Ophelia, a remarkable woman much in dispute with Hamlet.
-Hamlet, the flatterer of Andersen Insulting A/S.
-
-
- Act I: Hamlet's insults and flattery.
-
- Scene I: The insulting of Romeo.
-
-[Enter Hamlet and Romeo]
-
-Hamlet:
- You lying stupid fatherless big smelly half-witted coward!
- You are as stupid as the difference between a handsome rich brave
- hero and thyself! Speak your mind!
-
- You are as brave as the sum of your fat little stuffed misused dusty
- old rotten codpiece and a beautiful fair warm peaceful sunny summer's
- day. You are as healthy as the difference between the sum of the
- sweetest reddest rose and my father and yourself! Speak your mind!
-
- You are as cowardly as the sum of yourself and the difference
- between a big mighty proud kingdom and a horse. Speak your mind.
-
- Speak your mind!
-
-[Exit Romeo]
-
- Scene II: The praising of Juliet.
-
-[Enter Juliet]
-
-Hamlet:
- Thou art as sweet as the sum of the sum of Romeo and his horse and his
- black cat! Speak thy mind!
-
-[Exit Juliet]
-
- Scene III: The praising of Ophelia.
-
-[Enter Ophelia]
-
-Hamlet:
- Thou art as lovely as the product of a large rural town and my amazing
- bottomless embroidered purse. Speak thy mind!
-
- Thou art as loving as the product of the bluest clearest sweetest sky
- and the sum of a squirrel and a white horse. Thou art as beautiful as
- the difference between Juliet and thyself. Speak thy mind!
-
-[Exeunt Ophelia and Hamlet]
-
-
- Act II: Behind Hamlet's back.
-
- Scene I: Romeo and Juliet's conversation.
-
-[Enter Romeo and Juliet]
-
-Romeo:
- Speak your mind. You are as worried as the sum of yourself and the
- difference between my small smooth hamster and my nose. Speak your
- mind!
-
-Juliet:
- Speak YOUR mind! You are as bad as Hamlet! You are as small as the
- difference between the square of the difference between my little pony
- and your big hairy hound and the cube of your sorry little
- codpiece. Speak your mind!
-
-[Exit Romeo]
-
- Scene II: Juliet and Ophelia's conversation.
-
-[Enter Ophelia]
-
-Juliet:
- Thou art as good as the quotient between Romeo and the sum of a small
- furry animal and a leech. Speak your mind!
-
-Ophelia:
- Thou art as disgusting as the quotient between Romeo and twice the
- difference between a mistletoe and an oozing infected blister! Speak
- your mind!
-
-[Exeunt]
-
-CODE
-close $FH;
-$out = `$parrot $langdir/shakespeare/shakespeare.pbc $filename`;
-ok($out eq "Hello World!\n", "check shakespeare");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("Squaak", 1) unless (-d "$langdir/squaak");
-$filename = 'test.squaak';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH "print(\"Hello, World!\")\n";
-close $FH;
-$out = `$parrot $langdir/squaak/squaak.pbc $filename`;
-ok($out eq "Hello, World!\n", "check squaak");
-unlink($filename);
-}
-
-SKIP:
-{
-skip("unlambda", 1) unless (-d "$langdir/unlambda");
-$filename = 'test.unl';
-open $FH, '>', $filename
- or die "Can't open $filename ($!).\n";
-print $FH <<'CODE';
-# hello world
-`r```````````.H.e.l.l.o. .w.o.r.l.di
-CODE
-close $FH;
-$out = `$parrot $langdir/unlambda/unl.pbc $filename`;
-ok($out eq "Hello world\n", "check unlambda");
-unlink($filename);
-}
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Copied: trunk/tools/install/smoke_languages.pl (from r36774, trunk/tools/install/smoke-languages.pl)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ trunk/tools/install/smoke_languages.pl Sun Feb 15 21:03:40 2009 (r36776, copy of r36774, trunk/tools/install/smoke-languages.pl)
@@ -0,0 +1,442 @@
+#! perl
+# Copyright (C) 2007-2009, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use 5.008;
+
+use Getopt::Long;
+use File::Spec::Functions;
+
+use Test::More tests => 25;
+
+=head1 NAME
+
+tools/install/smoke-languages.pl - checks some languages in install directory
+
+=head1 SYNOPSIS
+
+parrot in install tree
+
+ % cd /usr/local/parrot-$version
+ % perl tools/install/smoke-languages.pl
+
+parrot in build tree
+
+ % perl tools/install/smoke-languages.pl --bindir=.
+
+test installation in DESTDIR:
+
+ % cd /usr/src/parrot
+ % mkdir .inst
+ % make install DESTDIR=.inst
+ % perl tools/install/smoke-languages.pl DESTDIR=.inst
+
+=head1 DESCRIPTION
+
+Checks that most of things run (or just start) into the install directory,
+try to detect missing parts.
+
+=head1 OPTIONS
+
+=over
+
+=item --bindir=/usr/bin
+
+Override default value : 'bin'
+
+=back
+
+=cut
+
+my ($bindir, $DESTDIR);
+my $opts = GetOptions(
+ 'bindir=s' => \$bindir,
+ 'DESTDIR=s' => \$DESTDIR,
+);
+
+$bindir = 'bin' unless $bindir;
+
+chdir $DESTDIR if ($DESTDIR);
+
+my $filename;
+my $exe;
+my $out;
+my $FH;
+my $parrot = catfile($bindir, 'parrot');
+
+$out = `$parrot -V`;
+$out =~ m/version (\S+) built/;
+my $version = $1;
+
+my $langdir = ($bindir eq 'bin')
+ ? "lib/parrot/$version/languages"
+ : 'languages';
+
+#
+# some languages
+#
+
+SKIP:
+{
+skip("abc", 1) unless (-d "$langdir/abc");
+$filename = 'test.bc';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "1 + 2\n";
+close $FH;
+$out = `$parrot $langdir/abc/abc.pbc $filename`;
+ok($out eq "3\n", "check abc");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("APL", 1) unless (-d "$langdir/apl");
+$filename = 'test.apl';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "\"Hello world!\"";
+close $FH;
+$out = `$parrot $langdir/APL/APL.pbc $filename`;
+ok($out eq "Hello world!\n", "check APL");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("bf", 3) unless (-d "$langdir/bf");
+$out = `$parrot $langdir/bf/bf.pbc`;
+ok($out =~ /^usage/, "check bf");
+$out = `$parrot $langdir/bf/bfc.pbc`;
+ok($out =~ /^usage/, "check bfc");
+$out = `$parrot $langdir/bf/bfco.pbc`;
+ok($out =~ /^usage/, "check bfco");
+}
+
+SKIP:
+{
+skip("Cardinal", 1) unless (-d "$langdir/cardinal");
+$out = `$parrot $langdir/cardinal/cardinal.pbc -e "print 'hello world';"`;
+ok($out eq "hello world", "check cardinal");
+}
+
+SKIP:
+{
+skip(".NET", 3) unless (-d "$langdir/dotnet");
+$out = `$parrot $langdir/dotnet/net2pbc.pbc`;
+ok($out =~ /^Usage/, "check dotnet");
+}
+
+SKIP:
+{
+skip("EcmaScript", 3) unless (-d "$langdir/ecmascript");
+$filename = 'test.js';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "print(\"Hello World from JS\\n\");";
+close $FH;
+$out = `$parrot $langdir/ecmascript/js.pbc $filename`;
+ok($out eq "Hello World from JS\n\n", "check ecmascript");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("gil", 1) unless (-d "$langdir/gil");
+$filename = 'test.gil';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH q{say('Hello, world!');};
+close $FH;
+$out = `$parrot $langdir/gil/gil.pbc $filename`;
+ok($out eq "Hello, world!\n", "check gil");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("HQ9Plus", 1) unless (-d "$langdir/hq9plus");
+$filename = 'test.HQ9Plus';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "H";
+close $FH;
+$out = `$parrot $langdir/hq9plus/hq9plus.pbc $filename`;
+ok($out eq "Hello, world!\n", "check HQ9Plus");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Lisp", 1) unless (-d "$langdir/lisp");
+$filename = 'test.l';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "( print \"Hello, World!\" )\n";
+close $FH;
+$out = `$parrot $langdir/lisp/lisp.pbc $filename`;
+ok($out eq "Hello, World!\n", "check lisp");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Lua", 1) unless (-d "$langdir/lua");
+$out = `$parrot $langdir/lua/lua.pbc -e "print(nil)"`;
+ok($out eq "nil\n", "check lua");
+}
+
+SKIP:
+{
+skip("LOLCODE", 1) unless (-d "$langdir/lolcode");
+$filename = 'test.lolcode';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH <<'CODE';
+HAI 1.2
+ VISIBLE "HAI WORLD!"
+KTHXBYE
+CODE
+close $FH;
+$out = `$parrot $langdir/lolcode/lolcode.pbc $filename`;
+ok($out eq "HAI WORLD!\n", "check lolcode");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("m4", 1) unless (-d "$langdir/m4");
+$out = `$parrot $langdir/m4/m4.pbc`;
+ok($out =~ /^Usage/, "check m4");
+}
+
+SKIP:
+{
+skip("Markdown", 1) unless (-d "$langdir/markdown");
+$filename = 'test.text';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+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");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Pheme", 1) unless (-d "$langdir/pheme");
+$filename = 'test.l';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "( write \"Hello, World!\\n\" )\n";
+close $FH;
+$out = `$parrot $langdir/pheme/pheme.pbc $filename`;
+ok($out eq "Hello, World!\n", "check pheme");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Pipp", 1) unless (-d "$langdir/pipp");
+$filename = 'test.php';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "<?php echo \"Hello, World!\\n\"; ?>";
+close $FH;
+$out = `$parrot $langdir/pipp/pipp.pbc $filename`;
+ok($out eq "Hello, World!\n", "check pipp");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("primitivearc", 1) unless (-d "$langdir/primitivearc");
+$filename = 'test.arc';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH q{"Hello, world!\n"};
+close $FH;
+$out = `$parrot $langdir/primitivearc/arc.pbc $filename`;
+ok($out eq "Hello, world!\n\n", "check primitivearc");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Punie", 1) unless (-d "$langdir/punie");
+$filename = 'test.p1';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "print \"Hello, World!\\n\";\n";
+close $FH;
+$out = `$parrot $langdir/punie/punie.pbc $filename`;
+ok($out eq "Hello, World!\n", "check punie");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Pynie", 1) unless (-d "$langdir/pynie");
+$filename = 'test.py';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "print 'Hello, World!'\n";
+close $FH;
+$out = `$parrot $langdir/pynie/pynie.pbc $filename`;
+ok($out eq "Hello, World!\n", "check pynie");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Rakudo", 2) unless (-d "$langdir/rakudo");
+$out = `$parrot $langdir/rakudo/perl6.pbc -e "say 'hello world'"`;
+ok($out eq "hello world\n", "check rakudo");
+
+$exe = catfile($bindir, 'perl6');
+$out = `$exe -v`;
+ok($out =~ /Rakudo/, "check rakudo");
+}
+
+SKIP:
+{
+skip("Shakespeare", 1) unless (-d "$langdir/shakespeare");
+$filename = 'test.spl';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH <<'CODE';
+The Infamous Hello World Program.
+
+Romeo, a young man with a remarkable patience.
+Juliet, a likewise young woman of remarkable grace.
+Ophelia, a remarkable woman much in dispute with Hamlet.
+Hamlet, the flatterer of Andersen Insulting A/S.
+
+
+ Act I: Hamlet's insults and flattery.
+
+ Scene I: The insulting of Romeo.
+
+[Enter Hamlet and Romeo]
+
+Hamlet:
+ You lying stupid fatherless big smelly half-witted coward!
+ You are as stupid as the difference between a handsome rich brave
+ hero and thyself! Speak your mind!
+
+ You are as brave as the sum of your fat little stuffed misused dusty
+ old rotten codpiece and a beautiful fair warm peaceful sunny summer's
+ day. You are as healthy as the difference between the sum of the
+ sweetest reddest rose and my father and yourself! Speak your mind!
+
+ You are as cowardly as the sum of yourself and the difference
+ between a big mighty proud kingdom and a horse. Speak your mind.
+
+ Speak your mind!
+
+[Exit Romeo]
+
+ Scene II: The praising of Juliet.
+
+[Enter Juliet]
+
+Hamlet:
+ Thou art as sweet as the sum of the sum of Romeo and his horse and his
+ black cat! Speak thy mind!
+
+[Exit Juliet]
+
+ Scene III: The praising of Ophelia.
+
+[Enter Ophelia]
+
+Hamlet:
+ Thou art as lovely as the product of a large rural town and my amazing
+ bottomless embroidered purse. Speak thy mind!
+
+ Thou art as loving as the product of the bluest clearest sweetest sky
+ and the sum of a squirrel and a white horse. Thou art as beautiful as
+ the difference between Juliet and thyself. Speak thy mind!
+
+[Exeunt Ophelia and Hamlet]
+
+
+ Act II: Behind Hamlet's back.
+
+ Scene I: Romeo and Juliet's conversation.
+
+[Enter Romeo and Juliet]
+
+Romeo:
+ Speak your mind. You are as worried as the sum of yourself and the
+ difference between my small smooth hamster and my nose. Speak your
+ mind!
+
+Juliet:
+ Speak YOUR mind! You are as bad as Hamlet! You are as small as the
+ difference between the square of the difference between my little pony
+ and your big hairy hound and the cube of your sorry little
+ codpiece. Speak your mind!
+
+[Exit Romeo]
+
+ Scene II: Juliet and Ophelia's conversation.
+
+[Enter Ophelia]
+
+Juliet:
+ Thou art as good as the quotient between Romeo and the sum of a small
+ furry animal and a leech. Speak your mind!
+
+Ophelia:
+ Thou art as disgusting as the quotient between Romeo and twice the
+ difference between a mistletoe and an oozing infected blister! Speak
+ your mind!
+
+[Exeunt]
+
+CODE
+close $FH;
+$out = `$parrot $langdir/shakespeare/shakespeare.pbc $filename`;
+ok($out eq "Hello World!\n", "check shakespeare");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("Squaak", 1) unless (-d "$langdir/squaak");
+$filename = 'test.squaak';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH "print(\"Hello, World!\")\n";
+close $FH;
+$out = `$parrot $langdir/squaak/squaak.pbc $filename`;
+ok($out eq "Hello, World!\n", "check squaak");
+unlink($filename);
+}
+
+SKIP:
+{
+skip("unlambda", 1) unless (-d "$langdir/unlambda");
+$filename = 'test.unl';
+open $FH, '>', $filename
+ or die "Can't open $filename ($!).\n";
+print $FH <<'CODE';
+# hello world
+`r```````````.H.e.l.l.o. .w.o.r.l.di
+CODE
+close $FH;
+$out = `$parrot $langdir/unlambda/unl.pbc $filename`;
+ok($out eq "Hello world\n", "check unlambda");
+unlink($filename);
+}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
More information about the parrot-commits
mailing list