array-indexing a hash with a negative index is Failure, RT 77598

Author: bbkr

S02-types/hash.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 80;
+plan 81;
 
 # basic lvalue assignment
 # L<S09/Hashes>
@@ -296,6 +296,11 @@ eval_lives_ok('my $rt75694 = { has-b => 42 }', "can have a bareword key starting
     is $h<a>, 5, 'can normally modify items created from Hash.new';
 }
 
+# RT 77598
+{
+    is {}[-1], Failure, 'array-indexing a hash with a negative index is Failure';
+}
+
 done;
 
 # vim: ft=perl6