Update Math-BigRat to CPAN version 0.2613

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

diff --git a/cpan/Math-BigRat/t/rt121139.t b/cpan/Math-BigRat/t/rt121139.t
new file mode 100644 (file)
index 0000000..b0cd214
--- /dev/null
+++ b/cpan/Math-BigRat/t/rt121139.t
@@ -0,0 +1,16 @@
+#!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");