summaryrefslogtreecommitdiff
path: root/lib/Math/BigInt/t/bigfltpm.t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-11-11 21:07:18 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-11-11 21:07:18 +0000
commite745a66c2cdc9fa9305c81afdec93bddfb34aefd (patch)
treeb16f73f8703a77c07a362f601ae72305e36746b1 /lib/Math/BigInt/t/bigfltpm.t
parent86bbd6d19263a37b14c756874adb474fcee1ad0e (diff)
downloadperl-e745a66c2cdc9fa9305c81afdec93bddfb34aefd.tar.gz
Upgrade to Math::BigInt 1.46.
p4raw-id: //depot/perl@12945
Diffstat (limited to 'lib/Math/BigInt/t/bigfltpm.t')
-rwxr-xr-xlib/Math/BigInt/t/bigfltpm.t30
1 files changed, 6 insertions, 24 deletions
diff --git a/lib/Math/BigInt/t/bigfltpm.t b/lib/Math/BigInt/t/bigfltpm.t
index 6aa718131c..8d08d43d00 100755
--- a/lib/Math/BigInt/t/bigfltpm.t
+++ b/lib/Math/BigInt/t/bigfltpm.t
@@ -1,34 +1,16 @@
#!/usr/bin/perl -w
-BEGIN {
- $| = 1;
- my $location = $0;
- # to locate the testing files
- $location =~ s/bigfltpm.t//i;
- if ($ENV{PERL_CORE}) {
- # testing with the core distribution
- @INC = qw(../lib);
- if (-d 't') {
- chdir 't';
- require File::Spec;
- unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
- } else {
- unshift @INC, $location;
- }
- } else {
- # for running manually with the CPAN distribution
- unshift @INC, '../lib';
- $location =~ s/bigfltpm.t//;
- }
- print "# INC = @INC\n";
-}
-
use Test;
use strict;
BEGIN
{
- plan tests => 1277;
+ $| = 1;
+ unshift @INC, '../lib'; # for running manually
+ my $location = $0; $location =~ s/bigfltpm.t//;
+ unshift @INC, $location; # to locate the testing files
+ # chdir 't' if -d 't';
+ plan tests => 1299;
}
use Math::BigInt;