This is an automatically generated mail to inform you that tests are now
available in t/spec/S32-num/rat.t
commit bd03a1f10d092b98deab3e0643dd54227cf3aef9
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Wed Dec 16 20:14:00 2009 +0000
[t/spec] tests for RT #71364, and that === works on Rats
git-svn-id: http://svn.pugscode.org/p...@29348
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S32-num/rat.t b/t/spec/S32-num/rat.t
index 7a82b90..ac8f193 100644
--- a/t/spec/S32-num/rat.t
+++ b/t/spec/S32-num/rat.t
@@ -200,6 +200,13 @@ isa_ok (424/61731) * (61731/61733), Rat, "424/61731 *
61731/61733 is a Rat";
is_approx (424/61731) / (61733/61731), (424.Num / 61731.Num) / (61733.Num /
61731.Num), "424/61731 / 61733/61731 works";
isa_ok (424/61731) / (61733/61731), Rat, "424/61731 / 61733/61731 is a Rat";
+ok (1/2) == (1/2).Rat, 'Rat.Rat works';
+isa_ok (1/2).Rat, '... and actually returns a Rat';
+
+#?rakudo todo '=== on Rats'
+ok 1/2 === 1/2, 'Rats are value types, so 1/2 === 1/2';
+ok 1/2 !=== 1/3, '=== with false outcome';
+
done_testing;
# vim: ft=perl6
