[perl5.git] / cpan / Math-BigRat / t / hang.t

#!/usr/bin/perl -w

# test for bug #34584: hang in exp(1/2)

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

use Math::BigRat;

my $result = Math::BigRat->new('1/2')->bexp();

is ("$result", "9535900335500879457687887524133067574481/5783815921445270815783609372070483523265",
    "exp(1/2) worked");

##############################################################################
# done

1;
Commit	Line	Data
4de3d162 T	1	#!/usr/bin/perl -w
	2
	3	# test for bug #34584: hang in exp(1/2)
	4
	5	use strict;
c32198f6	6	use Test::More tests => 1;
4de3d162 T	7
	8	use Math::BigRat;
	9
	10	my $result = Math::BigRat->new('1/2')->bexp();
	11
	12	is ("$result", "9535900335500879457687887524133067574481/5783815921445270815783609372070483523265",
	13	"exp(1/2) worked");
	14
	15	##############################################################################
	16	# done
	17
	18	1;
	19