lib/Math/BigRat/t/bigratup.t

   1 #!/usr/bin/perl -w
   2
   3 # Test whether $Math::BigInt::upgrade is breaks out neck
   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 => 5;
  14   }
  15
  16 use Math::BigInt upgrade => 'Math::BigRat';
  17 use Math::BigRat;
  18
  19 my $rat = 'Math::BigRat';
  20 my ($x,$y,$z);
  21
  22 ##############################################################################
  23 # bceil/bfloor
  24
  25 $x = $rat->new('49/4'); ok ($x->bfloor(),'12');
  26 $x = $rat->new('49/4'); ok ($x->bceil(),'13');
  27
  28 ##############################################################################
  29 # bsqrt
  30
  31 $x = $rat->new('144'); ok ($x->bsqrt(),'12');
  32 $x = $rat->new('144/16'); ok ($x->bsqrt(),'3');
  33 $x = $rat->new('1/3'); ok ($x->bsqrt(),
  34  '1000000000000000000000000000000000000000/1732050807568877293527446341505872366943');
  35
  36
  37
  38