lib/bignum/t/option_a.t

   1 #!/usr/bin/perl -w
   2
   3 ###############################################################################
   4
   5 use Test;
   6 use strict;
   7
   8 BEGIN
   9   {
  10   $| = 1;
  11   chdir 't' if -d 't';
  12   unshift @INC, '../lib';
  13   plan tests => 4;
  14   }
  15
  16 use bignum a => '12';
  17
  18 ok (Math::BigInt->accuracy(),12);
  19 ok (Math::BigFloat->accuracy(),12);
  20
  21 bignum->import( accuracy => '23');
  22
  23 ok (Math::BigInt->accuracy(),23);
  24 ok (Math::BigFloat->accuracy(),23);
  25