cpan/bignum/t/bn_lite.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!perl

###############################################################################

use strict;
use warnings;

use Test::More;

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