+++ /dev/null
-#!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 $_";
-}