X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F85-stress-unwind.t;h=acd44521984471b05fbd0712838da7d3d0f3e0cc;hb=d3fe85111edf0d4cbd702f67eea3bf359bd8b485;hp=8ee79c6ec16d5ee733807e625377d2c5397ec714;hpb=c658e7cbf39b28fe652320c64a38f9e7e06ce8cd;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/85-stress-unwind.t b/t/85-stress-unwind.t
index 8ee79c6..acd4452 100644
--- a/t/85-stress-unwind.t
+++ b/t/85-stress-unwind.t
@@ -51,6 +51,9 @@ sub contextify {
  }
 }
 
+my $integer = 0;
+my $items   = 0;
+
 sub gen {
  my ($height, $level, $i) = @_;
  push @_, $i = 0 if @_ == 2;
@@ -65,7 +68,7 @@ sub gen {
      $blk->[0] . $cx->[0] . $code . $cx->[1] . $blk->[1],
      contextify($cx->[2], $active, $exp),
     ];
-    my @items = map { int rand 10 } 0 .. rand 3;
+    my @items = map $integer++, 0 .. ($items++ % 3);
     my $list  = join ', ', @items;
     push @res, [
      $blk->[0] . $cx->[0] . "($list, $code)" . $cx->[1] . $blk->[1],