]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
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 d7352955b295e46478be1e971a951d0711639e0c..4037c60eb95231591255b08f4c613dfc46b64018 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 6832844cc7ff28ee8f3d880ed1a2c1aad361ac6a..3bebba0cc9b218358d9db67f9e50e41db8b387cc 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 4a7c3a0fa0fa6e7860787e759ac4e0725860e5de..353949893fe4d9fdb2117ba5b4c393638fe5e9ec 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 6852426a69e536872c7571929d4315bd3ea3736d..f4231d72ae1517d3a23fd2c7e1f3186c8ff35126 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 57282e203afd0b02ad41d8f7654dfe7b7cf4f6e1..cff75658737a885ebd4a3da0bd9c895e01942bcd 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 cb7580beac51dc3b95510642e092a8fb09b81c7e..200380d01572117b3c125cb68c89459693f956c0 100644 (file)
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 1;
 
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
 {
  my @warns;
  {
index 14b987cb17de043947003fce4d9a0d9dc85374cb..78b2b1dad86ba8fcfbe8e881f06ad79401cdec19 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 0bae40abaa28a962183f05e844e0ee5c346555fe..16af4ca9656a0a72f282e39d71ca33b07961a7e9 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 02289296783032743373be31ce533f165ae281e2..6805d9e49fc75f6fe4cc753bf5925bd33a447457 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 bb31787c58457d52f1e740e6db4e813598a040d8..cf474a8377c01574dff059508d374d5ce4b68237 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 b9267303da14338f97b9715facf82fa99011ddb6..19a66938aaeb0bfa8ac3ad38048bdd696229d433 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;