use Test::More tests => 10;

use_ok 'Math::BigFloat';

note 'Math tests';

for( my $i = 1; $i < 1000000000; $i *= 10 ) {
    my $bf = Math::BigFloat->new( $i );
    $bf->precision(-2);
    my $xpect = 
       ($bf > 1 ? '3' x (scalar($bf->length) - 1) : 0)
       . ".33";
    is $bf->bdiv(3), $xpect, $i . ' / 3 = ' . $xpect;
}