develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33613 - branches/testparrottest/t/perl/testlib

From:
jkeenan
Date:
December 7, 2008 07:56
Subject:
[svn:parrot] r33613 - branches/testparrottest/t/perl/testlib
Message ID:
20081207155608.CB1BECB9AF@x12.develooper.com
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:



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About