lib/Math/BigInt/t/downgrade.t

   1 #!/usr/bin/perl -w
   2
   3 use Test;
   4 use strict;
   5
   6 BEGIN
   7   {
   8   $| = 1;
   9   unshift @INC, '../lib'; # for running manually
  10   my $location = $0; $location =~ s/downgrade.t//;
  11   unshift @INC, $location; # to locate the testing files
  12   chdir 't' if -d 't';
  13   plan tests => 12;
  14   }
  15
  16 use Math::BigInt upgrade => 'Math::BigFloat';
  17 use Math::BigFloat downgrade => 'Math::BigInt', upgrade => 'Math::BigInt';
  18
  19 use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup
  20              $ECL $CL);
  21 $class = "Math::BigInt";
  22 $CL = "Math::BigInt::Calc";
  23 $ECL = "Math::BigFloat";
  24
  25 # simplistic test for now
  26 ok (Math::BigFloat->downgrade(),'Math::BigInt');
  27 ok (Math::BigFloat->upgrade(),'Math::BigInt');
  28
  29 # these downgrade
  30 ok (ref(Math::BigFloat->new('inf')),'Math::BigInt');
  31 ok (ref(Math::BigFloat->new('-inf')),'Math::BigInt');
  32 ok (ref(Math::BigFloat->new('NaN')),'Math::BigInt');
  33 ok (ref(Math::BigFloat->new('0')),'Math::BigInt');
  34 ok (ref(Math::BigFloat->new('1')),'Math::BigInt');
  35 ok (ref(Math::BigFloat->new('10')),'Math::BigInt');
  36 ok (ref(Math::BigFloat->new('-10')),'Math::BigInt');
  37 ok (ref(Math::BigFloat->new('-10.0E1')),'Math::BigInt');
  38
  39 # disable, otherwise it screws calculations
  40 Math::BigFloat->upgrade(undef);
  41 ok (Math::BigFloat->upgrade()||'','');
  42
  43 Math::BigFloat->div_scale(20);                          # make it a bit faster
  44 my $x = Math::BigFloat->new(2);                         # downgrades
  45 # the following test upgrade for bsqrt() and also makes new() NOT downgrade
  46 # for the bpow() side
  47 ok (Math::BigFloat->bpow('2','0.5'),$x->bsqrt());
  48
  49 #require 'upgrade.inc'; # all tests here for sharing