blob: 488ed1ecba86948bca162407841a05fee9a377a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/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
|