Author: bernhard
Date: Sat Nov 29 02:58:44 2008
New Revision: 33330
Modified:
trunk/languages/pipp/t/php/functions.t
Log:
[Pipp] Add a perl6 equivalent of a TODO test
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 02:58:44 2008
@@ -81,6 +81,21 @@
after: 22
OUT
+=for perl6
+
+sub thrice( $a is rw ) {
+ print "$a times 3 is ";
+ $a = $a * 3;
+ print "$a.\n";
+}
+
+my $a = 22;
+print "before: $a\n";
+thrice( $a );
+print "after: $a\n";
+
+=cut
+
language_output_is( 'Pipp', <<'CODE', <<'OUT', 'pass by reference', todo =>
'not implemented yet' );
<?php
