lib_load.t 881 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
#!/usr/bin/perl -w

use strict;
use Test::More tests => 4;

BEGIN { unshift @INC, 't'; }

# first load BigInt with Calc
use Math::BigInt lib => 'Calc';

# BigFloat will remember that we loaded Calc
require Math::BigFloat;
is (Math::BigFloat::config()->{lib}, 'Math::BigInt::Calc', 'BigFloat got Calc');

# now load BigInt again with a different lib
Math::BigInt->import( lib => 'BareCalc' );

# and finally test that BigFloat knows about BareCalc

is (Math::BigFloat::config()->{lib}, 'Math::BigInt::BareCalc', 'BigFloat was notified');

# See that Math::BigFloat supports "only"
eval "Math::BigFloat->import('only' => 'Calc')";
is (Math::BigFloat::config()->{lib}, 'Math::BigInt::Calc', '"only" worked');

# See that Math::BigFloat supports "try"
eval "Math::BigFloat->import('try' => 'BareCalc')";
is (Math::BigFloat::config()->{lib}, 'Math::BigInt::BareCalc', '"try" worked');