Make t/85-stress-unwind.t predictable

diff --git a/t/85-stress-unwind.t b/t/85-stress-unwind.t
index 8ee79c6ec16d5ee733807e625377d2c5397ec714..acd44521984471b05fbd0712838da7d3d0f3e0cc 100644 (file)
--- 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],