dist/Math-BigInt/t/bare_mif.t

   1 #!/usr/bin/perl -w
   2
   3 # test rounding, accuracy, precision and fallback, round_mode and mixing
   4 # of classes under BareCalc
   5
   6 use strict;
   7 use Test::More tests => 684
   8     + 1;                # our own tests
   9
  10 BEGIN { unshift @INC, 't'; }
  11
  12 print "# ",Math::BigInt->config()->{lib},"\n";
  13
  14 use Math::BigInt lib => 'BareCalc';
  15 use Math::BigFloat lib => 'BareCalc';
  16
  17 use vars qw/$mbi $mbf/;
  18
  19 $mbi = 'Math::BigInt';
  20 $mbf = 'Math::BigFloat';
  21
  22 is (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
  23
  24 require 't/mbimbf.inc';