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

#!/usr/bin/perl -w

# see if using Math::BigInt and Math::BigFloat works together nicely.
# all use_lib*.t should be equivalent, except this, since the later overrides
# the former lib statement

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 lib => 'BareCalc';
use Math::BigFloat lib => 'Calc';

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

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, except this, since the later overrides
	5	# the former lib statement
	6
	7	use strict;
	8	use Test;
	9
	10	BEGIN
	11	{
	12	$\| = 1;
	13	chdir 't' if -d 't';
	14	unshift @INC, '../lib'; # for running manually
	15	unshift @INC, 'lib';
	16	plan tests => 2;
	17	}
	18
	19	use Math::BigInt lib => 'BareCalc';
	20	use Math::BigFloat lib => 'Calc';
	21
	22	ok (Math::BigInt->config()->{lib},'Math::BigInt::Calc');
	23
	24	ok (Math::BigFloat->new(123)->badd(123),246);
	25