1eac174f2Safresh1# -*- mode: perl; -*- 2b8851fccSafresh1 3b8851fccSafresh1# Test bpi() and bexp() 4b8851fccSafresh1 5b8851fccSafresh1use strict; 6b8851fccSafresh1use warnings; 7b8851fccSafresh1 8b8851fccSafresh1use Test::More tests => 8; 9b8851fccSafresh1 10b8851fccSafresh1use Math::BigFloat; 11b8851fccSafresh1 12b8851fccSafresh1############################################################################# 13b8851fccSafresh1 14b8851fccSafresh1my $pi = Math::BigFloat::bpi(); 15b8851fccSafresh1 16*3d61058aSafresh1is($pi->{accuracy}, undef, 'A is not defined'); 17*3d61058aSafresh1is($pi->{precision}, undef, 'P is not defined'); 18b8851fccSafresh1 19b8851fccSafresh1$pi = Math::BigFloat->bpi(); 20b8851fccSafresh1 21*3d61058aSafresh1is($pi->{accuracy}, undef, 'A is not defined'); 22*3d61058aSafresh1is($pi->{precision}, undef, 'P is not defined'); 23b8851fccSafresh1 24b8851fccSafresh1$pi = Math::BigFloat->bpi(10); 25b8851fccSafresh1 26*3d61058aSafresh1is($pi->{accuracy}, 10, 'A is defined'); 27*3d61058aSafresh1is($pi->{precision}, undef, 'P is not defined'); 28b8851fccSafresh1 29b8851fccSafresh1############################################################################# 30b8851fccSafresh1 31b8851fccSafresh1my $e = Math::BigFloat->new(1)->bexp(); 32b8851fccSafresh1 33*3d61058aSafresh1is($e->{accuracy}, undef, 'A is not defined'); 34*3d61058aSafresh1is($e->{precision}, undef, 'P is not defined'); 35