Remove obsolete test boilerplate from Math::BigInt::FastCalc.

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';