diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-09-10 09:41:46 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-09-10 09:41:46 +0100 |
commit | 5488a7f9f2833e3904afc24ddf8a073264e61ae1 (patch) | |
tree | 29799c92ecbedc6a616931c024f915c8b8c18c28 /dist | |
parent | b80fbfc1369503b9b9cebd853b87411da1882bba (diff) | |
download | perl-5488a7f9f2833e3904afc24ddf8a073264e61ae1.tar.gz |
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.
Diffstat (limited to 'dist')
-rw-r--r-- | dist/bignum/t/big_e_pi.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/bigexp.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/bigint.t | 3 | ||||
-rw-r--r-- | dist/bignum/t/bignum.t | 3 | ||||
-rw-r--r-- | dist/bignum/t/bigrat.t | 3 | ||||
-rw-r--r-- | dist/bignum/t/bii_e_pi.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/biinfnan.t | 6 | ||||
-rw-r--r-- | dist/bignum/t/bir_e_pi.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/bn_lite.t | 3 | ||||
-rw-r--r-- | dist/bignum/t/bninfnan.t | 16 | ||||
-rw-r--r-- | dist/bignum/t/br_lite.t | 3 | ||||
-rw-r--r-- | dist/bignum/t/brinfnan.t | 6 | ||||
-rw-r--r-- | dist/bignum/t/in_effect.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/option_a.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/option_l.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/option_p.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/ratopt_a.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/scope_f.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/scope_i.t | 10 | ||||
-rw-r--r-- | dist/bignum/t/scope_r.t | 10 |
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; |