Remove obsolete core test directory boilerplate from bignum.
authorNicholas Clark <nick@ccl4.org>
Fri, 10 Sep 2010 08:41:46 +0000 (09:41 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 10 Sep 2010 08:41:46 +0000 (09:41 +0100)
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.

21 files changed:
dist/bignum/t/big_e_pi.t
dist/bignum/t/bigexp.t
dist/bignum/t/bigint.t
dist/bignum/t/bignum.t
dist/bignum/t/bigrat.t
dist/bignum/t/bii_e_pi.t
dist/bignum/t/biinfnan.t
dist/bignum/t/bir_e_pi.t
dist/bignum/t/bn_lite.t
dist/bignum/t/bninfnan.t
dist/bignum/t/br_lite.t
dist/bignum/t/brinfnan.t
dist/bignum/t/in_effect.t
dist/bignum/t/option_a.t
dist/bignum/t/option_l.t
dist/bignum/t/option_p.t
dist/bignum/t/ratopt_a.t
dist/bignum/t/scope_f.t
dist/bignum/t/scope_i.t
dist/bignum/t/scope_r.t
t/TEST

index 819e225..24f0843 100644 (file)
@@ -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/;
 
index 2fc631f..d9da12c 100644 (file)
@@ -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;
 
index baf76a3..bef5aec 100644 (file)
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 51;
   }
 
index fe299a2..d900cbb 100644 (file)
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 35;
   }
 
index 972b83c..1423b7d 100644 (file)
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 40;
   }
 
index 76ee07a..b47b4a8 100644 (file)
@@ -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/;
 
index f136c1e..0ad4c57 100644 (file)
@@ -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";
 
index 88342b0..f8b347b 100644 (file)
@@ -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/;
 
index 21247c1..889bf63 100644 (file)
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 1;
   }
 
index 82bc22a..674662f 100644 (file)
@@ -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";
 
index 2bf77d4..524cc26 100644 (file)
@@ -7,9 +7,6 @@ use strict;
 
 BEGIN
   {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
   plan tests => 1;
   }
 
index 286adbc..2cb5ce7 100644 (file)
@@ -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";
 
index b163f12..5d09fc1 100644 (file)
@@ -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;
index 2086f9a..1f13562 100644 (file)
@@ -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';
 
index cfa8033..d8c6b87 100644 (file)
@@ -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;
 
index b84883b..cdc4f43 100644 (file)
@@ -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/;
 
index f004afe..0d18e87 100644 (file)
@@ -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/;
 
index dd748e1..ba11f5b 100644 (file)
@@ -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;
index 4e2f1e6..8a11a6b 100644 (file)
@@ -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;
index 784fe0e..5cc2117 100644 (file)
@@ -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;
diff --git a/t/TEST b/t/TEST
index 204fba9..817f32c 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -61,7 +61,6 @@ my %abs = (
           '../dist/ExtUtils-Install' => 1,
           '../dist/ExtUtils-ParseXS' => 1,
           '../dist/Math-BigInt' => 1,
-          '../dist/bignum' => 1,
          );
 
 my %temp_no_core =