lib/Math/BigInt/t/bigfltpm.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/bigfltpm.t//;
  11   unshift @INC, $location; # to locate the testing files
  12   # chdir 't' if -d 't';
  13   plan tests => 1273;
  14   }
  15
  16 use Math::BigInt;
  17 use Math::BigFloat;
  18
  19 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup);
  20 $class = "Math::BigFloat";
  21
  22 require 'bigfltpm.inc'; # all tests here for sharing