Author: jkeenan
Date: Sun Dec 7 07:56:07 2008
New Revision: 33613
Added:
branches/testparrottest/t/perl/testlib/hello.pir
Modified:
branches/testparrottest/t/perl/testlib/hello.pasm
Log:
Add or modify test files used in t/perl/Parrot_Test.t.
Modified: branches/testparrottest/t/perl/testlib/hello.pasm
==============================================================================
--- branches/testparrottest/t/perl/testlib/hello.pasm (original)
+++ branches/testparrottest/t/perl/testlib/hello.pasm Sun Dec 7 07:56:07 2008
@@ -1,3 +1,4 @@
+# Copyright (C) 2001-2008, The Perl Foundation.
# $Id$
# Get @ARGV as a ResizableStringArray
Added: branches/testparrottest/t/perl/testlib/hello.pir
==============================================================================
--- (empty file)
+++ branches/testparrottest/t/perl/testlib/hello.pir Sun Dec 7 07:56:07 2008
@@ -0,0 +1,16 @@
+# Copyright (C) 2001-2008, The Perl Foundation.
+# $Id: hello-dwim.pir 25819 2008-02-18 00:16:21Z coke $
+.sub _main
+ print "The answer is\n"
+ add $I0, 20, 23
+ dec $I0
+ print $I0
+ print "\nsay's Parrot!\n"
+ end
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
