lib/Math/BigInt/t/upgrade.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/upgrade.t//;
  11   unshift @INC, $location; # to locate the testing files
  12   chdir 't' if -d 't';
  13   plan tests => 2056
  14    + 2;                 # our own tests
  15   }
  16
  17 use Math::BigInt upgrade => 'Math::BigFloat';
  18 use Math::BigFloat;
  19
  20 use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup
  21              $ECL $CL);
  22 $class = "Math::BigInt";
  23 $CL = "Math::BigInt::Calc";
  24 $ECL = "Math::BigFloat";
  25
  26 ok (Math::BigInt->upgrade(),'Math::BigFloat');
  27 ok (Math::BigInt->downgrade()||'','');
  28
  29 require 'upgrade.inc';  # all tests here for sharing