Set.hash does not cause keys to be stringified

RT#127402
Raku · Aug 2, 2016 · 1efb4d5 · 1efb4d5
1 parent 8aac698
commit 1efb4d5
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S02-types/set.t b/S02-types/set.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 177;
+plan 178;
 
 sub showset($s) { $s.keys.sort.join(' ') }
 
@@ -416,4 +416,12 @@ dies-ok { set(1, 2) «+» set(3, 4) }, 'Set «+» Set is illegal';
     isa-ok set(42).Hash.keys[0], Int, "make sure set.Hash returns objects";
 }
 
+# RT #127402
+subtest '.hash does not cause keys to be stringified' => {
+    plan 3;
+    is Set.new($(<a b>)).hash.keys[0][0], 'a', 'Set.new';
+    is ($(<a b>),).Set.hash.keys[0][0],   'a', '.Set';
+    is set($(<a b>),).hash.keys[0][0],    'a', 'set()';
+}
+
 # vim: ft=perl6