lib/bignum/t/option_p.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More;
   4 use strict;
   5
   6 BEGIN
   7   {
   8   $| = 1;
   9   chdir 't' if -d 't';
  10   unshift @INC, '../lib';
  11   plan tests => 4;
  12   }
  13
  14 my @C = qw/Math::BigInt Math::BigFloat/;
  15
  16 use bignum p => '12';
  17
  18 foreach my $c (@C)
  19   {
  20   is ($c->precision(),12, "$c precision = 12");
  21   }
  22
  23 bignum->import( p => '42' );
  24
  25 foreach my $c (@C)
  26   {
  27   is ($c->precision(),42, "$c precision = 42");
  28   }
  29