#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 11;
use Math::BigInt upgrade => 'Math::BigFloat';
use Math::BigFloat;

BEGIN {
    use_ok( 'Math::BigInt'   );
    use_ok( 'Math::BigFloat' );
}

note 'Math tests';

my $bf = 'Math::BigFloat';

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