cpan/Math-BigRat/t/requirer.t

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