1use strict; 2use warnings; 3 4use Test::More tests => 3; 5 6use Math::BigFloat; 7 8my $mbf = 'Math::BigFloat'; 9 10my $x = $mbf->new('123456.123456'); 11 12is($x->numify, 123456.123456, 'numify before bfround'); 13 14$x->bfround(-2); 15 16is($x->numify, 123456.12, 'numify after bfround'); 17is($x->bstr, "123456.12", 'bstr after bfround'); 18