Commit | Line | Data |
fade31f0 |
1 | #!/usr/bin/perl -w |
2 | |
3 | ############################################################################### |
4 | # test for e() and PI() exports |
5 | |
6 | use Test::More; |
7 | use strict; |
8 | |
9 | BEGIN |
10 | { |
11 | $| = 1; |
12 | chdir 't' if -d 't'; |
13 | unshift @INC, '../lib'; |
d98d5fa0 |
14 | plan tests => 5; |
fade31f0 |
15 | } |
16 | |
d98d5fa0 |
17 | use bigint qw/e PI bpi bexp/; |
fade31f0 |
18 | |
19 | is (e, "2", 'e'); |
20 | is (PI, "3", 'PI'); |
21 | |
d98d5fa0 |
22 | is (bexp(1,10), "2", 'e'); |
23 | is (bexp(3,10), "20", 'e'); |
24 | is (bpi(10), "3", 'PI'); |