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 bigrat qw/e PI/; |
18 | |
19 | is (e, "2.718281828459045235360287471352662497757", 'e'); |
20 | is (PI, "3.141592653589793238462643383279502884197", 'PI'); |
21 | |
22 | is (e(10), "2.718281828", 'e'); |
23 | is (PI(10), "3.141592654", 'PI'); |