lib/bignum/t/bii_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 => 5;
  15   }
  16
  17 use bigint qw/e PI bpi bexp/;
  18
  19 is (e, "2", 'e');
  20 is (PI, "3", 'PI');
  21
  22 is (bexp(1,10), "2", 'e');
  23 is (bexp(3,10), "20", 'e');
  24 is (bpi(10), "3", 'PI');