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'; | |
14 | plan tests => 4; | |
15 | } | |
16 | ||
17 | use bigint qw/e PI/; | |
18 | ||
19 | is (e, "2", 'e'); | |
20 | is (PI, "3", 'PI'); | |
21 | ||
22 | is (e(10), "2", 'e'); | |
23 | is (PI(10), "3", 'PI'); |