[perl5.git] / cpan / Math-BigRat / t / rt121139.t

#!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");
Commit	Line	Data
92c15a49 EH	1	#!perl
	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");