The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

PJACKLAM / Math-BigInt-2.005001 / t / rt121139.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
# -*- mode: perl; -*-
# check for cpan rt #121139
use strict;
use warnings;
use Test::More tests => 2;
use Math::BigRat;
my $a = Math::BigRat->new('3/2');
my $x = Math::BigRat->new('2/3');
is("$a", "3/2");
my $y = $a;
$y = $x * $y;
is("$a", "3/2");