lib/bignum/t/big_e_pi.t

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