This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: RFC: bigint et. al exporting PI method? [PATCH]
[perl5.git] / 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 => 4;
15   }
16
17 use bigint qw/e PI/;
18
19 is (e, "2", 'e');
20 is (PI, "3", 'PI');
21
22 is (e(10), "2", 'e');
23 is (PI(10), "3", 'PI');