xref: /openbsd-src/gnu/usr.bin/perl/cpan/Math-BigInt/t/bfround_numify.t (revision 5486feefcc8cb79b19e014ab332cc5dfd05b3b33) 
1*5486feefSafresh1use strict;
2*5486feefSafresh1use warnings;
3*5486feefSafresh1
4*5486feefSafresh1use Test::More tests => 3;
5*5486feefSafresh1
6*5486feefSafresh1use Math::BigFloat;
7*5486feefSafresh1
8*5486feefSafresh1my $mbf = 'Math::BigFloat';
9*5486feefSafresh1
10*5486feefSafresh1my $x = $mbf->new('123456.123456');
11*5486feefSafresh1
12*5486feefSafresh1is($x->numify, 123456.123456, 'numify before bfround');
13*5486feefSafresh1
14*5486feefSafresh1$x->bfround(-2);
15*5486feefSafresh1
16*5486feefSafresh1is($x->numify, 123456.12, 'numify after bfround');
17*5486feefSafresh1is($x->bstr, "123456.12", 'bstr after bfround');
18