Changeset 21161 for t/statements/for.t

Timestamp:

07/02/08 06:01:09 (5 months ago)

Author:

cjfields

Message:

* add some list context tests per #perl6 and #parrot discussions
* will convert over to t/spec/S04-statements/for.t for spec regression tests

Files:

• t/statements/for.t (modified) (3 diffs)

t/statements/for.t

@@ -21 +21 @@
 =cut
 
-plan 41;
+plan 44;
 
 ## No foreach
@@ -193 +193 @@
 is($r, '012345', 'for (@array) { .some_sub } works');
 
-
 my @elems = <a b c d e>;
 
@@ -303 +302 @@
     is( [$a,$b,$c], [1,2,3], 'for ($a,$b,$c) -> $x is rw { $x++ }');
 }
+
+# list context
+
+$a = '';
+for 1..3, 4..6 { $a =~ $_.WHAT };
+is($a, 'IntIntIntIntIntInt', 'List context');
+
+$a = '';
+for [1..3, 4..6] { $a =~ $_.WHAT };
+is($a, 'Array', 'List context');
+
+$a = '';
+for [1..3], [4..6] { $a =~ $_.WHAT };
+is($a, 'ArrayArray', 'List context');