lib/Math/BigInt/t/require.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Test;
   5
   6 BEGIN
   7   {
   8   $| = 1;
   9   chdir 't' if -d 't';
  10   unshift @INC, '../lib'; # for running manually
  11   plan tests => 1;
  12   }
  13
  14 my ($try,$ans,$x);
  15
  16 require Math::BigInt; $x = Math::BigInt->new(1); ++$x;
  17
  18 #$try = 'require Math::BigInt; $x = Math::BigInt->new(1); ++$x;';
  19 #$ans = eval $try || 'undef';
  20 #print "# For '$try'\n" if (!ok "$ans" , '2' );
  21
  22 ok ($x||'undef',2);
  23
  24 # all tests done
  25