[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;

BEGIN 
  {
  $| = 1;
  chdir 't' if -d 't';
  unshift @INC, '../lib'; # for running manually
  plan 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;
	6	use Test::More;
	7
	8	BEGIN
	9	{
	10	$\| = 1;
	11	chdir 't' if -d 't';
	12	unshift @INC, '../lib'; # for running manually
	13	plan tests => 1;
	14	}
	15
	16	use Math::BigRat;
	17
	18	my $result = Math::BigRat->new('1/2')->bexp();
	19
	20	is ("$result", "9535900335500879457687887524133067574481/5783815921445270815783609372070483523265",
	21	"exp(1/2) worked");
	22
	23	##############################################################################
	24	# done
	25
	26	1;
	27