Remove obsolete core test directory boilerplate from bignum.

This was only needed for testing in the core, when the core's tests all ran in
the top level t/ directory. Without this getting in the way, we don't need
t/TEST and t/harness to run the tests with absolute paths in @INC. Testing in
the CPAN distribution is unaffected.

20 files changed, 15 insertions, 148 deletions

diff --git a/dist/bignum/t/big_e_pi.t b/dist/bignum/t/big_e_pi.t
index 819e22528a..24f0843c41 100644
--- a/dist/bignum/t/big_e_pi.t
+++ b/dist/bignum/t/big_e_pi.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # test for e() and PI() exports
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 4;
-  }
+use Test::More tests => 4;
 
 use bignum qw/e PI bexp bpi/;
 
diff --git a/dist/bignum/t/bigexp.t b/dist/bignum/t/bigexp.t
index 2fc631fff1..d9da12cd95 100644
--- a/dist/bignum/t/bigexp.t
+++ b/dist/bignum/t/bigexp.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # test for bug #18025: bignum/bigrat can lead to a number that is both 1 and 0
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 4;
-  }
+use Test::More tests => 4;
 
 use bignum;
 
diff --git a/dist/bignum/t/bigint.t b/dist/bignum/t/bigint.t
index baf76a3005..bef5aecb91 100644
--- a/dist/bignum/t/bigint.t
+++ b/dist/bignum/t/bigint.t
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 51;
   }
 
diff --git a/dist/bignum/t/bignum.t b/dist/bignum/t/bignum.t
index fe299a2e24..d900cbb7a1 100644
--- a/dist/bignum/t/bignum.t
+++ b/dist/bignum/t/bignum.t
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 35;
   }
 
diff --git a/dist/bignum/t/bigrat.t b/dist/bignum/t/bigrat.t
index 972b83cde2..1423b7d1e0 100644
--- a/dist/bignum/t/bigrat.t
+++ b/dist/bignum/t/bigrat.t
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 40;
   }
 
diff --git a/dist/bignum/t/bii_e_pi.t b/dist/bignum/t/bii_e_pi.t
index 76ee07ae29..b47b4a8d61 100644
--- a/dist/bignum/t/bii_e_pi.t
+++ b/dist/bignum/t/bii_e_pi.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # test for e() and PI() exports
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 5;
-  }
+use Test::More tests => 5;
 
 use bigint qw/e PI bpi bexp/;
 
diff --git a/dist/bignum/t/biinfnan.t b/dist/bignum/t/biinfnan.t
index f136c1e66e..0ad4c5711c 100644
--- a/dist/bignum/t/biinfnan.t
+++ b/dist/bignum/t/biinfnan.t
@@ -7,10 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  unshift @INC, '../lib/bignum/t' if $ENV{PERL_CORE};
   plan tests => 26;
   }
 
@@ -18,5 +14,5 @@ use bigint;
 
 my ($x);
 
-require "infnan.inc";
+require "t/infnan.inc";
 
diff --git a/dist/bignum/t/bir_e_pi.t b/dist/bignum/t/bir_e_pi.t
index 88342b05bd..f8b347be0c 100644
--- a/dist/bignum/t/bir_e_pi.t
+++ b/dist/bignum/t/bir_e_pi.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # test for e() and PI() exports
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 4;
-  }
+use Test::More tests => 4;
 
 use bigrat qw/e PI bexp bpi/;
 
diff --git a/dist/bignum/t/bn_lite.t b/dist/bignum/t/bn_lite.t
index 21247c1ee7..889bf631e7 100644
--- a/dist/bignum/t/bn_lite.t
+++ b/dist/bignum/t/bn_lite.t
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 1;
   }
 
diff --git a/dist/bignum/t/bninfnan.t b/dist/bignum/t/bninfnan.t
index 82bc22a3a7..674662f8ff 100644
--- a/dist/bignum/t/bninfnan.t
+++ b/dist/bignum/t/bninfnan.t
@@ -7,20 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  my $location = $0; $location =~ s/bninfnan.t//i;
-  unshift @INC, '../lib';     # for testing manually
-  if (-d 't')
-    {
-    chdir 't';
-    require File::Spec;
-    unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
-    }
-  else
-    {
-    unshift @INC, $location;
-    }
-  print "# INC = @INC\n";
   plan tests => 26;
   }
 
@@ -28,5 +14,5 @@ use bignum;
 
 my ($x);
 
-require "infnan.inc";
+require "t/infnan.inc";
 
diff --git a/dist/bignum/t/br_lite.t b/dist/bignum/t/br_lite.t
index 2bf77d4037..524cc26663 100644
--- a/dist/bignum/t/br_lite.t
+++ b/dist/bignum/t/br_lite.t
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 1;
   }
 
diff --git a/dist/bignum/t/brinfnan.t b/dist/bignum/t/brinfnan.t
index 286adbc0ca..2cb5ce753d 100644
--- a/dist/bignum/t/brinfnan.t
+++ b/dist/bignum/t/brinfnan.t
@@ -7,10 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  unshift @INC, '../lib/bignum/t' if $ENV{PERL_CORE};
   plan tests => 26;
   }
 
@@ -18,5 +14,5 @@ use bigrat;
 
 my ($x);
 
-require "infnan.inc";
+require "t/infnan.inc";
 
diff --git a/dist/bignum/t/in_effect.t b/dist/bignum/t/in_effect.t
index b163f12b8f..5d09fc172f 100644
--- a/dist/bignum/t/in_effect.t
+++ b/dist/bignum/t/in_effect.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # Test in_effect()
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 9;
-  }
+use Test::More tests => 9;
 
 use bigint;
 use bignum;
diff --git a/dist/bignum/t/option_a.t b/dist/bignum/t/option_a.t
index 2086f9a8d8..1f135626cc 100644
--- a/dist/bignum/t/option_a.t
+++ b/dist/bignum/t/option_a.t
@@ -2,16 +2,8 @@
 
 ###############################################################################
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 4;
-  }
+use Test::More tests => 4;
 
 use bignum a => '12';
 
diff --git a/dist/bignum/t/option_l.t b/dist/bignum/t/option_l.t
index cfa8033f22..d8c6b87a1a 100644
--- a/dist/bignum/t/option_l.t
+++ b/dist/bignum/t/option_l.t
@@ -2,16 +2,8 @@
 
 # test the "l", "lib", "try" and "only" options:
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 19;
-  }
+use Test::More tests => 19;
 
 use bignum;
 
diff --git a/dist/bignum/t/option_p.t b/dist/bignum/t/option_p.t
index b84883be4b..cdc4f4311b 100644
--- a/dist/bignum/t/option_p.t
+++ b/dist/bignum/t/option_p.t
@@ -1,15 +1,7 @@
 #!/usr/bin/perl -w
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 4;
-  }
+use Test::More tests => 4;
 
 my @C = qw/Math::BigInt Math::BigFloat/;
 
diff --git a/dist/bignum/t/ratopt_a.t b/dist/bignum/t/ratopt_a.t
index f004afe428..0d18e87031 100644
--- a/dist/bignum/t/ratopt_a.t
+++ b/dist/bignum/t/ratopt_a.t
@@ -2,16 +2,8 @@
 
 ###############################################################################
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 7;
-  }
+use Test::More tests => 7;
 
 my @C = qw/Math::BigInt Math::BigFloat Math::BigRat/;
 
diff --git a/dist/bignum/t/scope_f.t b/dist/bignum/t/scope_f.t
index dd748e11c8..ba11f5b0e2 100644
--- a/dist/bignum/t/scope_f.t
+++ b/dist/bignum/t/scope_f.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # Test "no bignum;" and overloading of hex()/oct() for newer Perls
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 10;
-  }
+use Test::More tests => 10;
 
 # no :hex and :oct means these do not get overloaded for older Perls:
 use bignum;
diff --git a/dist/bignum/t/scope_i.t b/dist/bignum/t/scope_i.t
index 4e2f1e6e7f..8a11a6b17e 100644
--- a/dist/bignum/t/scope_i.t
+++ b/dist/bignum/t/scope_i.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # Test "no bigint;" and overloading of hex()/oct() for newer Perls
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 10;
-  }
+use Test::More tests => 10;
 
 # no :hex and :oct means these do not get overloaded for older Perls:
 use bigint;
diff --git a/dist/bignum/t/scope_r.t b/dist/bignum/t/scope_r.t
index 784fe0e6b0..5cc2117f01 100644
--- a/dist/bignum/t/scope_r.t
+++ b/dist/bignum/t/scope_r.t
@@ -3,16 +3,8 @@
 ###############################################################################
 # Test "no bigrat;" and overloading of hex()/oct() for newer Perls
 
-use Test::More;
 use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 10;
-  }
+use Test::More tests => 10;
 
 # no :hex and :oct means these do not get overloaded for older Perls:
 use bigrat;