[perl5.git] / dist / Math-BigInt / t / use_lib3.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::More tests => 2;

BEGIN { unshift @INC, 't'; }

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

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

is (Math::BigFloat->new(123)->badd(123),246);
Commit	Line	Data
56b9c951 JH	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;
3167abe5	7	use Test::More tests => 2;
56b9c951	8
3167abe5	9	BEGIN { unshift @INC, 't'; }
56b9c951 JH	10
	11	use Math::BigInt lib => 'BareCalc';
	12	use Math::BigFloat;
	13
3167abe5	14	is (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
56b9c951	15
3167abe5	16	is (Math::BigFloat->new(123)->badd(123),246);