diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-09-11 18:47:28 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-09-11 18:51:06 +0100 |
commit | c299d03b5bebd7013bbf77d78a58826ab4d27179 (patch) | |
tree | 84ce6f80373285f780537536fed530f1e4975c17 /dist/Math-BigInt-FastCalc | |
parent | 5ca2dbe59672be76c7ef2e27ca12f758c4441f96 (diff) | |
download | perl-c299d03b5bebd7013bbf77d78a58826ab4d27179.tar.gz |
Remove obsolete test boilerplate from Math::BigInt::FastCalc.
Diffstat (limited to 'dist/Math-BigInt-FastCalc')
-rw-r--r-- | dist/Math-BigInt-FastCalc/t/leak.t | 9 | ||||
-rw-r--r-- | dist/Math-BigInt-FastCalc/t/mbi_rand.t | 19 |
2 files changed, 6 insertions, 22 deletions
diff --git a/dist/Math-BigInt-FastCalc/t/leak.t b/dist/Math-BigInt-FastCalc/t/leak.t index 6120c9f825..1da619ff1d 100644 --- a/dist/Math-BigInt-FastCalc/t/leak.t +++ b/dist/Math-BigInt-FastCalc/t/leak.t @@ -5,15 +5,8 @@ # XXX TODO: This test file doesn't actually seem to work! If you remove # the sv_2mortal() in the XS file, it still happily passes all tests... -use Test::More; use strict; - -BEGIN - { - $| = 1; - unshift @INC, ('../lib', '../blib/arch'); # for running manually - plan tests => 22; - } +use Test::More tests => 22; use Math::BigInt::FastCalc; diff --git a/dist/Math-BigInt-FastCalc/t/mbi_rand.t b/dist/Math-BigInt-FastCalc/t/mbi_rand.t index 339efaee29..4ad473d882 100644 --- a/dist/Math-BigInt-FastCalc/t/mbi_rand.t +++ b/dist/Math-BigInt-FastCalc/t/mbi_rand.t @@ -1,21 +1,12 @@ #!/usr/bin/perl -w -use Test::More; use strict; +use Test::More; -my $count; - -BEGIN - { - $| = 1; - if ($^O eq 'os390') { print "1..0\n"; exit(0) } # test takes too long there - unshift @INC, '../lib'; # for running manually - unshift @INC, '../blib/arch'; - my $location = $0; $location =~ s/mbi_rand.t//; - unshift @INC, $location; # to locate the testing files - $count = 128; - plan tests => $count*2; - } +my $count = 128; + +plan(($^O eq 'os390') + ? (skip_all => 'takes too long on os390') : (tests => $count*2)); use Math::BigInt lib => 'FastCalc'; my $c = 'Math::BigInt'; |