1# -*- mode: perl; -*- 2 3############################################################################### 4# test for e() and PI() exports 5 6use strict; 7use warnings; 8 9use Test::More tests => 5; 10 11use bigint qw/e PI bpi bexp/; 12 13is(e, "2", 'e'); 14is(PI, "3", 'PI'); 15 16is(bexp(1, 10), "2", 'e'); 17is(bexp(3, 10), "20", 'e'); 18is(bpi(10), "3", 'PI'); 19