diff options
author | Nicolas R <atoomic@cpan.org> | 2022-07-20 19:25:41 +0000 |
---|---|---|
committer | ℕicolas ℝ <nicolas@atoomic.org> | 2022-07-20 14:49:02 -0600 |
commit | 119199b1a4e490b69342c09058ab33a628e5c801 (patch) | |
tree | 8b10a420a29ab470992b563c1609dfedf3f3cb7f /cpan/Math-BigInt-FastCalc | |
parent | 04ce75ea5d4462d0a877e2912d76ce95fe31251f (diff) | |
download | perl-119199b1a4e490b69342c09058ab33a628e5c801.tar.gz |
Sync Math::BigInt::FastCalc with CPAN 0.5013
Sync test files with Math-BigInt
Diffstat (limited to 'cpan/Math-BigInt-FastCalc')
-rw-r--r-- | cpan/Math-BigInt-FastCalc/lib/Math/BigInt/FastCalc.pm | 2 | ||||
-rw-r--r-- | cpan/Math-BigInt-FastCalc/t/biglog.t | 11 |
2 files changed, 5 insertions, 8 deletions
diff --git a/cpan/Math-BigInt-FastCalc/lib/Math/BigInt/FastCalc.pm b/cpan/Math-BigInt-FastCalc/lib/Math/BigInt/FastCalc.pm index f20c8eb1d8..ee2c29de3b 100644 --- a/cpan/Math-BigInt-FastCalc/lib/Math/BigInt/FastCalc.pm +++ b/cpan/Math-BigInt-FastCalc/lib/Math/BigInt/FastCalc.pm @@ -12,7 +12,7 @@ BEGIN { our @ISA = qw< Math::BigInt::Calc >; } -our $VERSION = '0.5012'; +our $VERSION = '0.5013'; my $MAX_EXP_F; # the maximum possible base 10 exponent with "no integer" my $MAX_EXP_I; # the maximum possible base 10 exponent with "use integer" diff --git a/cpan/Math-BigInt-FastCalc/t/biglog.t b/cpan/Math-BigInt-FastCalc/t/biglog.t index 18f959b39c..a33eedf31b 100644 --- a/cpan/Math-BigInt-FastCalc/t/biglog.t +++ b/cpan/Math-BigInt-FastCalc/t/biglog.t @@ -36,7 +36,6 @@ is($class->new(2)->bexp(), '7', "$class->new(2)->bexp()"); is($class->new(3)->bexp(), '20', "$class->new(3)->bexp()"); ############################################################################### -############################################################################### # Math::BigFloat tests ############################################################################### @@ -146,7 +145,7 @@ is($class->new("10")->bpow("0.6", 10), "3.981071706", qq|$class->new("10")->bpow("0.6", 10)|); # blog should handle bigint input -is(Math::BigFloat::blog(Math::BigInt->new(100), 10), 2, "blog(100)"); +is(Math::BigFloat->blog(Math::BigInt->new(100), 10), 2, "blog(100)"); ############################################################################### # some integer results @@ -190,9 +189,9 @@ test_bpow('9.86902225', '0.5', undef, '3.1415'); test_bpow('0.2', '0.41', 10, '0.5169187652'); -is($class->new("0.01")->bpow("28.4", 40)->bsstr(), - '1584893192461113485202101373391507013269e-96', - qq|$class->new("0.01")->bpow("28.4", 40)->bsstr()|); +is($class->new("0.1")->bpow("28.4", 40)->bsstr(), + '3981071705534972507702523050877520434877e-68', + qq|$class->new("0.1")->bpow("28.4", 40)->bsstr()|); # The following test takes too long. #is($class->new("2")->bpow("-1034.5", 40)->bsstr(), @@ -231,8 +230,6 @@ is($class->new("-394.84010945715266885")->bexp(20)->bsstr(), # all done -1; - ############################################################################### sub test_bpow { |