[perl5.git] / lib / Math / BigInt / t / bigfltpm.t

#!/usr/bin/perl -w

use Test;
use strict;

BEGIN
  {
  $| = 1;
  unshift @INC, '../../lib'; # for running manually
  my $location = $0; $location =~ s/bigfltpm.t//;
  unshift @INC, $location; # to locate the testing files
  # chdir 't' if -d 't';
  plan tests => 1273;
  }

use Math::BigInt;
use Math::BigFloat;

use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup);
$class = "Math::BigFloat";
   
require 'bigfltpm.inc';	# all tests here for sharing
Commit	Line	Data
58cde26e	1	#!/usr/bin/perl -w
5d7098d5	2
58cde26e JH	3	use Test;
	4	use strict;
	5
	6	BEGIN
	7	{
	8	$\| = 1;
ee15d750 JH	9	unshift @INC, '../../lib'; # for running manually
	10	my $location = $0; $location =~ s/bigfltpm.t//;
	11	unshift @INC, $location; # to locate the testing files
58cde26e	12	# chdir 't' if -d 't';
ee15d750	13	plan tests => 1273;
58cde26e	14	}
5d7098d5	15
58cde26e	16	use Math::BigInt;
574bacfe	17	use Math::BigFloat;
5d7098d5	18
ee15d750 JH	19	use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup);
ee15d750 JH	20	$class = "Math::BigFloat";
58cde26e	21
ee15d750	22	require 'bigfltpm.inc'; # all tests here for sharing