Blame t/01load.t

Packit dcde0c
#!perl
Packit dcde0c
Packit dcde0c
use strict;             # restrict unsafe constructs
Packit dcde0c
use warnings;           # enable optional warnings
Packit dcde0c
Packit dcde0c
use Test::More tests => 2;
Packit dcde0c
Packit dcde0c
BEGIN {
Packit dcde0c
    use_ok('Math::BigInt');
Packit dcde0c
    use_ok('Math::BigInt::FastCalc');
Packit dcde0c
};
Packit dcde0c
Packit dcde0c
my @mods = ('Math::BigInt',
Packit dcde0c
            'Math::BigInt::Calc',
Packit dcde0c
            'Math::BigInt::FastCalc',
Packit dcde0c
            );
Packit dcde0c
Packit dcde0c
diag("");
Packit dcde0c
diag("Testing with Perl $], $^X");
Packit dcde0c
diag("");
Packit dcde0c
diag(sprintf("%12s %s\n", 'Version', 'Module'));
Packit dcde0c
diag(sprintf("%12s %s\n", '-------', '------'));
Packit dcde0c
for my $mod (@mods) {
Packit dcde0c
    diag(sprintf("%12s %s\n", $mod -> VERSION(), $mod));
Packit dcde0c
}
Packit dcde0c
diag("");