This is an automatically generated mail to inform you that tests are now
available in t/spec/S32-num/rat.t
commit 44b611429edf1c19d0bcdafa4abe28ffc16a9afc
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Tue Oct 13 12:08:26 2009 +0000
[t/spec] test for RT #69738: array indexing with Rats
git-svn-id: http://svn.pugscode.org/p...@28778
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S32-num/rat.t b/t/spec/S32-num/rat.t
index b67ac25..e92d95f 100644
--- a/t/spec/S32-num/rat.t
+++ b/t/spec/S32-num/rat.t
@@ -156,6 +156,9 @@ is( exp(1).Rat(1e-4), Rat.new(193, 71), "Num to Rat with
epsilon 1e-4");
is( exp(1).Rat(Rat.new(1,1e4.Int)), Rat.new(193, 71),
"Num to Rat with epsilon of Rat");
+is (5/4).Int, 1, 'Rat.Int';
+is <a b c>.[4/3], 'b', 'Indexing an array with a Rat (RT #69738)';
+
done_testing;
# vim: ft=perl6
