From f1fac49fcdfab1ca9e665462a3220da9fc6e8854 Mon Sep 17 00:00:00 2001 From: moritz Date: Tue, 22 Jun 2010 20:55:24 +0000 Subject: [PATCH] [t/spec] test for RT #75266, indexing array attributes with non-Ints git-svn-id: http://svn.pugscode.org/pugs@31413 c213334d-75ef-0310-aa23-eaa082d1ae64 --- S12-attributes/instance.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/S12-attributes/instance.t b/S12-attributes/instance.t index f1e015eff1..dd5b9cf1c5 100644 --- a/S12-attributes/instance.t +++ b/S12-attributes/instance.t @@ -2,7 +2,7 @@ use v6; use Test; -plan 128; +plan 129; =begin pod @@ -337,6 +337,10 @@ is Foo7e.new.attr, 42, "default attribute value (1)"; is $o.m0, 'a', '@.a[0] works'; is $o.m1, 'b', '@.a[*-2] works'; is $o.m2, 'c', '@.a[*-1] works'; + + # RT #75266 + is ArrayAttribTest.new(a => ).a[2.0], 'z', + 'Can index array attributes with non-integers'; } { @@ -573,4 +577,5 @@ is Foo7e.new.attr, 42, "default attribute value (1)"; is TestMethodAll.new(a => 5).all, 5, 'Can call a method all()'; } + # vim: ft=perl6