X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F42-stress.t;fp=t%2F42-stress.t;h=0000000000000000000000000000000000000000;hb=175215d256b3ccb78ed48b5ad17c5e1d5ac3ba28;hp=cf474a8377c01574dff059508d374d5ce4b68237;hpb=f02dad546d5c13916b4771154d8f7284fc3cb31c;p=perl%2Fmodules%2Findirect.git

diff --git a/t/42-stress.t b/t/42-stress.t
deleted file mode 100644
index cf474a8..0000000
--- a/t/42-stress.t
+++ /dev/null
@@ -1,25 +0,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-my $count;
-BEGIN { $count = 1_000 }
-
-use Test::More tests => 2 * $count;
-
-BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
-
-for (1 .. $count) {
- my @errs;
- {
-  local $SIG{__WARN__} = sub { die @_ };
-  eval q(
-   return;
-   no indirect hook => sub { push @errs, [ @_[0, 1, 3] ] };
-   my $x = new Wut;
-  );
- }
- is        $@,     '',                      "didn't croak at run $_";
- is_deeply \@errs, [ [ 'Wut', 'new', 4 ] ], "got the right data at run $_";
-}