RT #117431 test hash itemization

Raku · Jul 20, 2014 · c6e4b9b · c6e4b9b
1 parent ff5bd05
commit c6e4b9b
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S02-types/hash.t b/S02-types/hash.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 88;
+plan 89;
 
 # basic lvalue assignment
 # L<S09/Hashes>
@@ -309,6 +309,12 @@ eval_lives_ok('my $rt75694 = { has-b => 42 }', "can have a bareword key starting
     is($RT73230.perl, 'Hash', 'test for positional (.[]) indexing on a Hash (RT #73230)');
 }
 
+# RT #117431
+{
+    my %hash = a => 1;
+    is item(%hash).perl, ({ a => 1 }).perl, 'item(%hash) is equivalent to {%hash}';
+}
+
 done;
 
 # vim: ft=perl6