lib/bignum/t/ratopt_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 => 7;
  14   }
  15
  16 my @C = qw/Math::BigInt Math::BigFloat Math::BigRat/;
  17
  18 # bigrat (bug until v0.15)
  19 use bigrat a => 2;
  20
  21 foreach my $c (@C)
  22   {
  23   is ($c->accuracy(), 2, "$c accuracy = 2");
  24   }
  25
  26 eval { bigrat->import( accuracy => '42') };
  27
  28 is ($@, '', 'no error');
  29
  30 foreach my $c (@C)
  31   {
  32   is ($c->accuracy(), 42, "$c accuracy = 42");
  33   }
  34