dist/Math-BigInt/t/use_lib3.t

   1 #!/usr/bin/perl -w
   2
   3 # see if using Math::BigInt and Math::BigFloat works together nicely.
   4 # all use_lib*.t should be equivalent
   5
   6 use strict;
   7 use Test::More tests => 2;
   8
   9 BEGIN { unshift @INC, 't'; }
  10
  11 use Math::BigInt lib => 'BareCalc';
  12 use Math::BigFloat;
  13
  14 is (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
  15
  16 is (Math::BigFloat->new(123)->badd(123),246);