This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Math::BigInt from 1.999701 to 1.999704
[perl5.git] / cpan / Math-BigInt / t / bigfltpm.t
1 #!/usr/bin/perl -w
2
3 use strict;
4 use Test::More tests => 2360
5     + 5;                # own tests
6
7
8 use Math::BigInt lib => 'Calc';
9 use Math::BigFloat;
10
11 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
12 $class = "Math::BigFloat";
13 $CL = "Math::BigInt::Calc";
14
15 is ($class->config()->{class},$class);
16 is ($class->config()->{with}, $CL);
17
18 # bug #17447: Can't call method Math::BigFloat->bsub, not a valid method
19 my $c = Math::BigFloat->new( '123.3' );
20 is ($c->fsub(123), '0.3'); # calling fsub on a BigFloat works
21
22 # Bug until BigInt v1.86, the scale wasn't treated as a scalar:
23 $c = Math::BigFloat->new('0.008'); my $d = Math::BigFloat->new(3);
24 my $e = $c->bdiv(Math::BigFloat->new(3),$d);
25
26 is ($e,'0.00267'); # '0.008 / 3 => 0.0027');
27
28 SKIP: {
29     skip("skipping test which is not for this backend", 1)
30       unless $CL eq 'Math::BigInt::Calc';
31     is (ref($e->{_e}->[0]), '');  # 'Not a BigInt');
32 }
33
34 require 't/bigfltpm.inc';       # all tests here for sharing