|
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("");
|