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

#!/usr/bin/perl -w

# see if using Math::BigInt and Math::BigFloat works together nicely.
# all use_lib*.t should be equivalent

use strict;
use Test;

BEGIN
  {
  $| = 1;
  chdir 't' if -d 't';
  unshift @INC, '../lib'; # for running manually
  unshift @INC, 'lib';
  plan tests => 2;
  } 

use Math::BigInt;
use Math::BigFloat lib => 'BareCalc';

ok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');

ok (Math::BigFloat->new(123)->badd(123),246);
Commit	Line	Data
56b9c951	1	#!/usr/bin/perl -w
	2
	3	# see if using Math::BigInt and Math::BigFloat works together nicely.
	4	# all use_lib*.t should be equivalent
	5
	6	use strict;
	7	use Test;
	8
	9	BEGIN
	10	{
	11	$\| = 1;
	12	chdir 't' if -d 't';
	13	unshift @INC, '../lib'; # for running manually
	14	unshift @INC, 'lib';
	15	plan tests => 2;
	16	}
	17
	18	use Math::BigInt;
	19	use Math::BigFloat lib => 'BareCalc';
	20
	21	ok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
	22
	23	ok (Math::BigFloat->new(123)->badd(123),246);
	24