xref: /openbsd-src/gnu/usr.bin/perl/cpan/Math-BigInt/t/rt121139.t (revision 5486feefcc8cb79b19e014ab332cc5dfd05b3b33)
1*5486feefSafresh1# -*- mode: perl; -*-
2*5486feefSafresh1
3*5486feefSafresh1# check for cpan rt #121139
4*5486feefSafresh1
5*5486feefSafresh1use strict;
6*5486feefSafresh1use warnings;
7*5486feefSafresh1use Test::More tests => 2;
8*5486feefSafresh1use Math::BigRat;
9*5486feefSafresh1
10*5486feefSafresh1my $a = Math::BigRat->new('3/2');
11*5486feefSafresh1my $x = Math::BigRat->new('2/3');
12*5486feefSafresh1is("$a", "3/2");
13*5486feefSafresh1
14*5486feefSafresh1my $y = $a;
15*5486feefSafresh1$y = $x * $y;
16*5486feefSafresh1is("$a", "3/2");
17