lib/Math/BigInt/t/require.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl -w

use strict;
use Test;

BEGIN
  {
  $| = 1;
  chdir 't' if -d 't';
  unshift @INC, '../lib'; # for running manually
  plan tests => 1;
  } 

my ($try,$ans,$x);

require Math::BigInt; $x = Math::BigInt->new(1); ++$x;

#$try = 'require Math::BigInt; $x = Math::BigInt->new(1); ++$x;';
#$ans = eval $try || 'undef';
#print "# For '$try'\n" if (!ok "$ans" , '2' ); 

ok ($x||'undef',2);

# all tests done

1;