Commit | Line | Data |
---|---|---|
61f5c3f5 | 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 |