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

[svn:parrot] r33337 - trunk/languages/pipp/t/php

From:
bernhard
Date:
November 29, 2008 04:33
Subject:
[svn:parrot] r33337 - trunk/languages/pipp/t/php
Message ID:
20081129123335.DC70ACB9AF@x12.develooper.com
Author: bernhard
Date: Sat Nov 29 04:33:30 2008
New Revision: 33337

Modified:
   trunk/languages/pipp/t/php/functions.t

Log:
[Pipp] add Perl6 equivalent of an TODO test case


Modified: trunk/languages/pipp/t/php/functions.t
==============================================================================
--- trunk/languages/pipp/t/php/functions.t	(original)
+++ trunk/languages/pipp/t/php/functions.t	Sat Nov 29 04:33:30 2008
@@ -169,6 +169,17 @@
 12 asdf -1
 OUT
 
+=for perl6
+
+sub return_100( )  {
+  return 100;
+}
+
+my $a = return_100();
+print "$a\n";
+
+=cut
+
 language_output_is( 'Pipp', <<'CODE', <<'OUT', 'return an integer', todo => 'not implemented yet' );
 <?php
 



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