Test that Set(Hash).Hash returns an object hash

Raku · Feb 20, 2016 · f5993d1 · f5993d1
1 parent 4a6ba55
commit f5993d1
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/S02-types/set.t b/S02-types/set.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 176;
+plan 177;
 
 sub showset($s) { $s.keys.sort.join(' ') }
 
@@ -412,4 +412,8 @@ dies-ok { set(1, 2) «+» set(3, 4) }, 'Set «+» Set is illegal';
     ok <one two three>.map({$_}) ~~ set(<two three one>), 'smartmatch a Seq';
 }
 
+{
+    isa-ok set(42).Hash.keys[0], Int, "make sure set.Hash returns objects";
+}
+
 # vim: ft=perl6
diff --git a/S02-types/sethash.t b/S02-types/sethash.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 204;
+plan 205;
 
 # L<S02/Mutable types/"QuantHash of Bool">
 
@@ -434,4 +434,8 @@ sub showset($s) { $s.keys.sort.join(' ') }
     ok <one two three>.map({$_}) ~~ SetHash.new(<two three one>), 'smartmatch a Seq';
 }
 
+{
+    isa-ok SetHash(42).Hash.keys[0], Int, "make sure SetHash.Hash returns objects";
+}
+
 # vim: ft=perl6