[p5sagit/p5-mst-13.2.git] / lib / Math / BigInt / t / upgrade.t

#!/usr/bin/perl -w

use Test;
use strict;

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

use Math::BigInt upgrade => 'Math::BigFloat';
use Math::BigFloat;

use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup
             $ECL $CL);
$class = "Math::BigInt";
$CL = "Math::BigInt::Calc";
$ECL = "Math::BigFloat";

ok (Math::BigInt->upgrade(),'Math::BigFloat');
ok (Math::BigInt->downgrade()||'','');

require 'upgrade.inc';	# all tests here for sharing
Commit	Line	Data
b3abae2a	1	#!/usr/bin/perl -w
	2
	3	use Test;
	4	use strict;
	5
	6	BEGIN
	7	{
	8	$\| = 1;
9393ace2	9	unshift @INC, '../lib'; # for running manually
231071d6	10	my $location = $0; $location =~ s/upgrade.t//;
9393ace2	11	unshift @INC, $location; # to locate the testing files
9393ace2	12	chdir 't' if -d 't';
56b9c951	13	plan tests => 2068
9393ace2	14	+ 2; # our own tests
b3abae2a	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');
28df3e88	27	ok (Math::BigInt->downgrade()\|\|'','');
b3abae2a	28
b3abae2a	29	require 'upgrade.inc'; # all tests here for sharing