lib/bignum/t/option_a.t

   1 #!/usr/bin/perl -w
   2
   3 ###############################################################################
   4
   5 use Test::More;
   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 my @C = qw/Math::BigInt Math::BigFloat/;
  19
  20 foreach my $c (@C)
  21   {
  22   is ($c->accuracy(),12, "$c accuracy = 12");
  23   }
  24
  25 bignum->import( accuracy => '23');
  26
  27 foreach my $c (@C)
  28   {
  29   is ($c->accuracy(), 23, "$c accuracy = 23");
  30   }
  31