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

#!perl

# check that simple requiring BigRat works

use strict;
use warnings;

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
6320cdc0	1	#!perl
990fb837 RGS	2
	3	# check that simple requiring BigRat works
	4
	5	use strict;
11c955be SH	6	use warnings;
11c955be SH	7
c32198f6	8	use Test::More tests => 1;
990fb837 RGS	9
	10	my ($x);
	11
11c955be SH	12	require Math::BigRat;
	13	$x = Math::BigRat->new(1);
	14	++$x;
990fb837	15
11c955be	16	is($x, 2, '$x got successfully modified');
990fb837 RGS	17
990fb837 RGS	18	# all tests done