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

#!/usr/bin/perl -w

# check that simple requiring BigFloat and then new() works

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

require Math::BigFloat; my $x = Math::BigFloat->new(1);  ++$x; is ($x,2);

# all tests done
Commit	Line	Data
990fb837 RGS	1	#!/usr/bin/perl -w
	2
	3	# check that simple requiring BigFloat and then new() works
	4
	5	use strict;
3167abe5	6	use Test::More tests => 1;
990fb837	7
3167abe5	8	require Math::BigFloat; my $x = Math::BigFloat->new(1); ++$x; is ($x,2);
990fb837 RGS	9
990fb837 RGS	10	# all tests done