Commit | Line | Data |
---|---|---|
6853e8af | 1 | # -*- mode: perl; -*- |
990fb837 RGS |
2 | |
3 | # check that simple requiring BigRat works | |
4 | ||
5 | use strict; | |
11c955be SH |
6 | use warnings; |
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 | |
18 | # all tests done |