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