Renumber test files

[perl/modules/Lexical-Types.git] / t / 29-scalar-stress.t

diff --git a/t/29-scalar-stress.t b/t/29-scalar-stress.t
new file mode 100644 (file)
index 0000000..16fd887
--- /dev/null
+++ b/t/29-scalar-stress.t
@@ -0,0 +1,19 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+my $count;
+BEGIN { $count = 1_000 }
+
+use Test::More tests => $count;
+
+sub Int::TYPEDSCALAR { join ':', (caller(0))[2], $_ }
+
+for (1 .. $count) {
+ eval q{
+  use Lexical::Types;
+  my Int $x;
+  is $x, "3:$_", "run $_";
+ }
+}