cpan/Math-BigRat/t/hang.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