Add tests for R#2865

S02-types/hash.t

@@ -3,7 +3,7 @@ use Test;
 use lib $?FILE.IO.parent(2).add: 'packages/Test-Helpers';
 use Test::Util;
 
-plan 99;
+plan 102;
 
 # basic lvalue assignment
 # L<S09/Hashes>
@@ -356,4 +356,14 @@ eval-lives-ok('my $rt75694 = { has-b => 42 }', "can have a bareword key starting
     cmp-ok %m.cache, 'eqv', (:42foo,), 'Map.cache  returns a List';
 }
 
+# R #2865
+{
+    dies-ok { my %h = "a"|"b" => 42 },
+      'cannot use Junction to initialize hash';
+    dies-ok { my %h{Any} = "a"|"b" => 42 },
+      'cannot use Junction to initialize object hash';
+    dies-ok { my %h is Map = "a"|"b" => 42 },
+      'cannot use Junction to initialize Map';
+}
+
 # vim: ft=perl6