diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-11 21:07:18 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-11 21:07:18 +0000 |
commit | e745a66c2cdc9fa9305c81afdec93bddfb34aefd (patch) | |
tree | b16f73f8703a77c07a362f601ae72305e36746b1 /lib/Math/BigInt/t/bigfltpm.t | |
parent | 86bbd6d19263a37b14c756874adb474fcee1ad0e (diff) | |
download | perl-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-x | lib/Math/BigInt/t/bigfltpm.t | 30 |
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; |