1# -*- mode: perl; -*-
2
3# check for cpan rt #121139
4
5use strict;
6use warnings;
7use Test::More tests => 2;
8use Math::BigRat;
9
10my $a = Math::BigRat->new('3/2');
11my $x = Math::BigRat->new('2/3');
12is("$a", "3/2");
13
14my $y = $a;
15$y = $x * $y;
16is("$a", "3/2");
17