Have newCONSTSUB pass the length to newXS

[perl5.git] / t / op / each_array.t

diff --git a/t/op/each_array.t b/t/op/each_array.t
index 9a6073a..6052805 100644 (file)
--- a/t/op/each_array.t
+++ b/t/op/each_array.t
@@ -10,7 +10,7 @@ use warnings;
 no warnings 'deprecated';
 use vars qw(@array @r $k $v $c);
 
-plan tests => 66;
+plan tests => 57;
 
 @array = qw(crunch zam bloop);
 
@@ -33,16 +33,8 @@ is ($r[0], 0);
 is ($r[1], 'crunch');
 ($k) = each @array;
 is ($k, 1);
-{
-    $[ = 2;
-    my ($k, $v) = each @array;
-    is ($k, 4);
-    is ($v, 'bloop');
-    (@r) = each @array;
-    is (scalar @r, 0);
-}
 
-my @lex_array = qw(PLOP SKLIZZORCH RATTLE PBLRBLPSFT);
+my @lex_array = qw(PLOP SKLIZZORCH RATTLE);
 
 (@r) = each @lex_array;
 is (scalar @r, 2);
@@ -53,12 +45,6 @@ is ($k, 1);
 is ($v, 'SKLIZZORCH');
 ($k) = each @lex_array;
 is ($k, 2);
-{
-    $[ = -42;
-    my ($k, $v) = each @lex_array;
-    is ($k, -39);
-    is ($v, 'PBLRBLPSFT');
-}
 (@r) = each @lex_array;
 is (scalar @r, 0);
 
@@ -80,17 +66,7 @@ my @keys;
 is ("@keys", "0 1 2");
 
 @keys = keys @lex_array;
-is ("@keys", "0 1 2 3");
-
-{
-    $[ = 1;
-
-    @keys = keys @array;
-    is ("@keys", "1 2 3");
-
-    @keys = keys @lex_array;
-    is ("@keys", "1 2 3 4");
-}
+is ("@keys", "0 1 2");
 
 ($k, $v) = each @array;
 is ($k, 0);
@@ -112,16 +88,6 @@ is ("@values", "@array");
 @values = values @lex_array;
 is ("@values", "@lex_array");
 
-{
-    $[ = 1;
-
-    @values = values @array;
-    is ("@values", "@array");
-
-    @values = values @lex_array;
-    is ("@values", "@lex_array");
-}
-
 ($k, $v) = each @array;
 is ($k, 0);
 is ($v, 'crunch');
@@ -134,7 +100,6 @@ is ($k, 0);
 is ($v, 'crunch');
 
 # reset
-$[ = 0;
 while (each @array) { }
 
 # each(ARRAY) in the conditional loop
@@ -147,7 +112,7 @@ while (($k, $v) = each @array) {
 
 # each(ARRAY) on scalar context in conditional loop
 # should guarantee to be wrapped into defined() function.
-# first return value will be $[ --> [#90888]
+# first return value will be 0 --> [#90888]
 $c = 0;
 $k = 0;
 $v = 0;