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

#!perl

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

use strict;
use warnings;

use Test::More tests => 1;

use Math::BigRat;

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

is("$result", "824360635350064073424325393907081785827/500000000000000000000000000000000000000",
   "exp(1/2) worked");

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

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