Changeset 22931 for t

Timestamp:

11/08/08 21:17:02 (2 months ago)

Author:

masak

Message:

[S04-statements/for-scope.t] added tests against [perl #60404]

Files:

• t/spec/S04-statements/for-scope.t (modified) (2 diffs)

t/spec/S04-statements/for-scope.t

@@ -3 +3 @@
 use Test;
 
-plan 12;
+plan 15;
 
 # Implicit $_
@@ -43 +43 @@
     is(@inside.join(""), "123", "lexical array properly initialized, round $_, two explicit \$_s");
 }
+
+sub respect(*@a) {
+    my @b = ();
+    push @b for @a;
+    return @b.elems;
+}
+
+is respect(1,2,3), 3, 'a for loop inside a sub loops over each of the elements';
+is respect([1,2,3]), 3, '...even if they are sent as an array ref'; # is this right?
+is respect( my @a = 1, 2, 3 ), 3, '...and when the array is declared in the argument list';