Author: bernhard
Date: Thu Jan 1 06:43:53 2009
New Revision: 34742
Modified:
trunk/languages/pipp/t/php/closures.t
Log:
[Pipp] Add working Perl 6 equivalent of broken test.
Modified: trunk/languages/pipp/t/php/closures.t
==============================================================================
--- trunk/languages/pipp/t/php/closures.t (original)
+++ trunk/languages/pipp/t/php/closures.t Thu Jan 1 06:43:53 2009
@@ -153,6 +153,32 @@
1c
OUT
+=for perl6
+
+sub gen_indentor ( $indention ) {
+
+ my $indentor = sub ($line) {
+ print $indention ~ $line ~ "\n";
+ };
+
+ return $indentor;
+}
+
+my $sub_1 = gen_indentor(' ');
+my $sub_2 = gen_indentor(' ');
+my $sub_3 = gen_indentor(' ');
+
+$sub_1('1a');
+$sub_1('1b');
+$sub_1('1c');
+$sub_2('2a');
+$sub_2('2b');
+$sub_2('2c');
+$sub_3('3a');
+$sub_3('3b');
+$sub_3('3c');
+
+=cut
language_output_is( 'Pipp', <<'CODE', <<'OUT', 'closure with a passed bound
var', todo => 'broken' );
<?php
