|
Packit |
7e8a16 |
#!perl
|
|
Packit |
7e8a16 |
|
|
Packit |
7e8a16 |
###############################################################################
|
|
Packit |
7e8a16 |
|
|
Packit |
7e8a16 |
use strict;
|
|
Packit |
7e8a16 |
use warnings;
|
|
Packit |
7e8a16 |
|
|
Packit |
7e8a16 |
use Test::More;
|
|
Packit |
7e8a16 |
|
|
Packit |
7e8a16 |
if (eval { require Math::BigInt::Lite; 1 }) {
|
|
Packit |
7e8a16 |
plan tests => 1;
|
|
Packit |
7e8a16 |
# can use Lite, so let bignum try it
|
|
Packit |
7e8a16 |
require bigrat;
|
|
Packit |
7e8a16 |
bigrat->import();
|
|
Packit |
7e8a16 |
# can't get to work a ref(1+1) here, presumable because :constant phase
|
|
Packit |
7e8a16 |
# already done
|
|
Packit |
7e8a16 |
is($bigrat::_lite, 1, '$bigrat::_lite is 1');
|
|
Packit |
7e8a16 |
} else {
|
|
Packit |
7e8a16 |
plan skip_all => "no Math::BigInt::Lite";
|
|
Packit |
7e8a16 |
}
|