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 bigfloat qw/e PI bexp bpi/; 12 13is(e, "2.718281828459045235360287471352662497757", 'e'); 14is(PI, "3.141592653589793238462643383279502884197", 'PI'); 15 16is(bexp(1, 10), "2.718281828", 'bexp(1, 10)'); 17is(bpi(10), "3.141592654", 'bpi(10)'); 18