[perl5.git] / dist / Math-BigInt / t / const_mbf.t

#!/usr/bin/perl -w

# test BigFloat constants alone (w/o BigInt loading)

use strict;
use Test::More tests => 2;

use Math::BigFloat ':constant';

is (1.0 / 3.0, '0.3333333333333333333333333333333333333333');

# BigInt was not loaded with ':constant', so only floats are handled
is (ref(2 ** 2),'');
Commit	Line	Data
091c87b1 T	1	#!/usr/bin/perl -w
	2
	3	# test BigFloat constants alone (w/o BigInt loading)
	4
	5	use strict;
3167abe5	6	use Test::More tests => 2;
091c87b1 T	7
	8	use Math::BigFloat ':constant';
	9
3167abe5	10	is (1.0 / 3.0, '0.3333333333333333333333333333333333333333');
091c87b1	11
3167abe5 NC	12	# BigInt was not loaded with ':constant', so only floats are handled
3167abe5 NC	13	is (ref(2 ** 2),'');
091c87b1	14