Add test for RT #111498

Raku · Apr 11, 2016 · 92543e1 · 92543e1
1 parent f90f4e3
commit 92543e1
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/S09-hashes/objecthash.t b/S09-hashes/objecthash.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 36;
+plan 37;
 
 {
     class A { method Str() { 'foo' } };
@@ -97,4 +97,15 @@ plan 36;
     is %h.WHAT, %j.WHAT, "Clone of an object hash instance is an object hash";
 }
 
+# RT #111498
+{
+    my $r1 = role { method foo() { 5 } };
+    my $r2 = role { method foo() { 7 } };
+    my %hash{Any};
+    %hash{"quux" but $r1} = 9;
+    %hash{"quux" but $r2} = 11;
+
+    is %hash.keys>>.foo.sort, (5, 7), 'Can use mixin objects as keys';
+}
+
 #vim: ft=perl6