1# -*- mode: perl; -*-
2
3# test for bug #34584: hang in exp(1/2)
4
5use strict;
6use warnings;
7
8use Test::More tests => 1;
9
10use Math::BigRat;
11
12my $result = Math::BigRat->new('1/2')->bexp();
13
14is("$result", "824360635350064073424325393907081785827/500000000000000000000000000000000000000",
15   "exp(1/2) worked");
16
17##############################################################################
18# done
19
201;
21