[perl5.git] / cpan / Math-BigRat / t / requirer.t

#!/usr/bin/perl -w

# check that simple requiring BigRat works

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

my ($x);

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

is ($x, 2, '$x got successfully modified');

# all tests done
Commit	Line	Data
990fb837 RGS	1	#!/usr/bin/perl -w
	2
	3	# check that simple requiring BigRat works
	4
	5	use strict;
c32198f6	6	use Test::More tests => 1;
990fb837 RGS	7
	8	my ($x);
	9
	10	require Math::BigRat; $x = Math::BigRat->new(1); ++$x;
	11
233f7bc0	12	is ($x, 2, '$x got successfully modified');
990fb837 RGS	13
	14	# all tests done
	15