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