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

#!/usr/bin/perl -w

# check that simple requiring BigInt works

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

my ($x);

require Math::BigInt; $x = Math::BigInt->new(1); ++$x;

is ($x,2);

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