t/40-stress.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 my $count;
   7 BEGIN { $count = 1_000 }
   8
   9 use Test::More tests => $count;
  10
  11 sub Int::TYPEDSCALAR { join ':', (caller(0))[2], $_ }
  12
  13 for (1 .. $count) {
  14  eval q{
  15   use Lexical::Types;
  16   my Int $x;
  17   is $x, "3:$_", "run $_";
  18  }
  19 }