Browse files

add test for RT #63986 - negative indexes; rakudo and niecza pass it

  • Loading branch information...
1 parent 7ea105f commit a9a75b0a130e3e7cdfdfb2340305b67362cf4eb6 @diakopter diakopter committed May 30, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 S02-types/lists.t
View
4 S02-types/lists.t
@@ -10,7 +10,7 @@ use Test;
# for this test. See
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22924">
-plan 27;
+plan 28;
# Indexing lists
@@ -28,6 +28,8 @@ plan 27;
is ($foo, "does_not_matter")[*-2], 42,
"indexing lists by a negative index works correctly";
+ eval_dies_ok(q/my @a = <one two>; @a[-1] = 'zero'; @a.perl/,
+ "indexing lists by a negative index without the * dies");
}
# List construction does not create new containers

0 comments on commit a9a75b0

Please sign in to comment.