Make sure PERL_INDIRECT_PM_DISABLE is not set before running tests
authorVincent Pit <vince@profvince.com>
Sun, 23 Aug 2009 15:55:58 +0000 (17:55 +0200)
committerVincent Pit <vince@profvince.com>
Sun, 23 Aug 2009 15:55:58 +0000 (17:55 +0200)
t/10-args.t
t/11-line.t
t/20-good.t
t/21-bad.t
t/22-bad-mixed.t
t/23-bad-notaint.t
t/30-scope.t
t/40-threads.t
t/41-memory.t
t/42-stress.t
t/80-regressions.t

index d735295..4037c60 100644 (file)
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 4 + 1 + 1;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 sub expect {
  my ($pkg) = @_;
  qr/^Indirect call of method "new" on object "$pkg" at \(eval \d+\) line \d+/;
index 6832844..3bebba0 100644 (file)
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 3 * 4;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 sub expect {
  my ($pkg, $line) = @_;
  return qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"$pkg"\s+at\s+\(eval\s+\d+\)\s+line\s+$line/;
index 4a7c3a0..3539498 100644 (file)
@@ -11,6 +11,8 @@ use warnings;
 
 use Test::More tests => 56 * 8;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 my ($obj, $pkg, $cb, $x, @a);
 our $y;
 sub meh;
index 6852426..f4231d7 100644 (file)
@@ -17,6 +17,8 @@ BEGIN {
 
 use Test::More tests => 3 * (4 * $tests + $reports) + 4;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 my ($obj, $x);
 our ($y, $bloop);
 
index 57282e2..cff7565 100644 (file)
@@ -11,6 +11,8 @@ use warnings;
 
 use Test::More tests => 3 * 9;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 sub meh;
 
 my @warns;
index cb7580b..200380d 100644 (file)
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 1;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 {
  my @warns;
  {
index 14b987c..78b2b1d 100644 (file)
@@ -8,6 +8,8 @@ BEGIN { $tests = 18 }
 
 use Test::More tests => (1 + $tests + 1) + 3 + 3 + 3 + 5 + 1;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 use lib 't/lib';
 
 my %wrong = map { $_ => 1 } 2, 3, 5, 7, 9, 10, 14, 15, 17, 18;
index 0bae40a..16af4ca 100644 (file)
@@ -18,6 +18,7 @@ use threads;
 use Test::More;
 
 BEGIN {
+ delete $ENV{PERL_INDIRECT_PM_DISABLE};
  require indirect;
  if (indirect::I_THREADSAFE()) {
   plan tests => 10 * 2 * (2 + 3);
index 0228929..6805d9e 100644 (file)
@@ -4,5 +4,7 @@ use lib 't/lib';
 
 use Test::More tests => 1;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 eval "require indirect::Test0::Oooooo::Pppppppp";
 is($@, '', 'memory reallocation to an uncatched optype');
index bb31787..cf474a8 100644 (file)
@@ -8,6 +8,8 @@ BEGIN { $count = 1_000 }
 
 use Test::More tests => 2 * $count;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 for (1 .. $count) {
  my @errs;
  {
index b926730..19a6693 100644 (file)
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 1;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 sub run_perl {
  my $code = shift;