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

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

• [svn:parrot] r34742 - trunk/languages/pipp/t/php by bernhard