"The value of the denominator hasn't changed");
isnt(refaddr($n), refaddr($n_orig),
"The addresses of the numerators have changed");
isnt(refaddr($d), refaddr($d_orig),
"The addresses o
is(ref($y), 'Math::BigFloat', '$y is a Math::BigFloat');
cmp_ok($y, "==", 2, '$y == 2');
isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};
$x = Math::BigRat -> new("2.5")
ref($y), 'Math::BigFloat', '$y is a Math::BigFloat');
cmp_ok($y, "==", 2.5, '$y == 2.5');
isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};
note("as_float() returns a Math
is(ref($y), 'Math::BigRat', '$y is a Math::BigRat');
cmp_ok($y, "==", 2, '$y == 2');
isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};
$x = Math::BigRat -> new("2.5")
is(ref($y), 'Math::BigRat', '$y is a Math::BigRat');
cmp_ok($y, "==", 2.5, '$y == 2.5');
isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};
note("as_rat() returns a Math::
is(ref($y), 'Math::BigInt', '$y is a Math::BigInt');
cmp_ok($y, "==", 2, '$y == 2');
isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};
note("as_int() returns a Math::
igRat', '$x is a Math::BigRat');
is(ref($y), 'Math::BigInt', '$y is a Math::BigInt');
cmp_ok($y, "==", 2, '$y == 2');
isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};