#!perl
use strict;
use warnings;
use Test::More tests => 3;
BEGIN {
use_ok('bignum');
use_ok('bigint');
use_ok('bigrat');
};
my @mods = ('bignum',
'bigint',
'bigrat',
'Math::BigInt',
'Math::BigRat',
'Math::BigInt::Lite',
);
diag("");
diag("Testing with Perl $], $^X");
diag("");
diag(sprintf("%12s %s\n", 'Version', 'Module'));
diag(sprintf("%12s %s\n", '-------', '------'));
for my $mod (@mods) {
eval "require $mod";
my $ver = $@ ? '-' : $mod -> VERSION();
diag(sprintf("%12s %s\n", $ver, $mod));
}
diag("");