9 # to locate the testing files
10 my $location = $0; $location =~ s/sub_mbf.t//i;
13 # testing with the core distribution
16 unshift @INC, '../lib';
21 unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
25 unshift @INC, $location;
27 print "# INC = @INC\n";
32 # first load BigInt with Calc
33 use Math::BigInt lib => 'Calc';
35 # BigFloat will remember that we loaded Calc
36 require Math::BigFloat;
37 is (Math::BigFloat::config()->{lib}, 'Math::BigInt::Calc', 'BigFloat got Calc');
39 # now load BigInt again with a different lib
40 Math::BigInt->import( lib => 'BareCalc' );
42 # and finally test that BigFloat knows about BareCalc
44 is (Math::BigFloat::config()->{lib}, 'Math::BigInt::BareCalc', 'BigFloat was notified');
46 # See that Math::BigFloat supports "only"
47 eval "Math::BigFloat->import('only' => 'Calc')";
48 is (Math::BigFloat::config()->{lib}, 'Math::BigInt::Calc', '"only" worked');
50 # See that Math::BigFloat supports "try"
51 eval "Math::BigFloat->import('try' => 'BareCalc')";
52 is (Math::BigFloat::config()->{lib}, 'Math::BigInt::BareCalc', '"try" worked');