1# -*- mode: perl; -*-
2
3###############################################################################
4# test for e() and PI() exports
5
6use strict;
7use warnings;
8
9use Test::More tests => 4;
10
11use bigrat qw/e PI bexp bpi/;
12
13is(e,  "2718281828459045235360287471352662497757/"
14   . "1000000000000000000000000000000000000000", 'e');
15is(PI, "3141592653589793238462643383279502884197/"
16   . "1000000000000000000000000000000000000000", 'PI');
17
18# These tests should actually produce big rationals, but this is not yet
19# implemented. Fixme!
20
21is(bexp(1, 10), "679570457/250000000", 'bexp(1, 10)');
22is(bpi(10),     "1570796327/500000000", 'bpi(10)');
23