This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade bignum from version 0.42 to 0.43
[perl5.git] / cpan / bignum / t / bigexp.t
1 #!perl
2
3 ###############################################################################
4 # test for bug #18025: bignum/bigrat can lead to a number that is both 1 and 0
5
6 use strict;
7 use warnings;
8
9 use Test::More tests => 4;
10
11 use bignum;
12
13 my $ln_ev = -7 / (10 ** 17);
14 my $ev    = exp($ln_ev);
15 is(sprintf('%0.5f', $ev),       '1.00000', '($ev) is approx. 1');
16 is(sprintf('%0.5f', 1 - $ev),   '0.00000', '(1-$ev) is approx. 0');
17 is(sprintf('%0.5f', 1 - "$ev"), '0.00000', '(1-"$ev") is approx. 0');
18
19 cmp_ok($ev, '!=', 0, '$ev should not equal 0');