#!/usr/bin/perl -w

# Test bpi() and bexp()

use strict;
use Test::More tests => 8;

use Math::BigFloat;

#############################################################################

my $pi = Math::BigFloat::bpi();

ok (!exists $pi->{_a}, 'A not set');
ok (!exists $pi->{_p}, 'P not set');

$pi = Math::BigFloat->bpi();

ok (!exists $pi->{_a}, 'A not set');
ok (!exists $pi->{_p}, 'P not set');

$pi = Math::BigFloat->bpi(10);

is ($pi->{_a}, 10, 'A set');
is ($pi->{_p}, undef, 'P not set');

#############################################################################
my $e = Math::BigFloat->new(1)->bexp();

ok (!exists $e->{_a}, 'A not set');
ok (!exists $e->{_p}, 'P not set');