Make sure we test Set(Hash).kv (correctly)

Raku · Oct 6, 2015 · 9c5c7a3 · 9c5c7a3
1 parent e2a621c
commit 9c5c7a3
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/S02-types/set.t b/S02-types/set.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 173;
+plan 174;
 
 sub showset($s) { $s.keys.sort.join(' ') }
 
@@ -401,4 +401,9 @@ dies-ok { set(1, 2) «+» set(3, 4) }, 'Set «+» Set is illegal';
         'trying to assign throws X::Assignment::RO';
 }
 
+{
+    my $a = (1,2,3,2,2,2,2).Set;
+    is $a.kv.sort, (1,2,3,True,True,True), "Set.kv returns list of keys and values";
+}
+
 # vim: ft=perl6
diff --git a/S02-types/sethash.t b/S02-types/sethash.t
@@ -70,10 +70,9 @@ sub showset($s) { $s.keys.sort.join(' ') }
 
 {
     my $a = (1,2,3,2,2,2,2).SetHash;
-    is $a.kv.sort, ((1, Bool::True), (2, Bool::True), (3, Bool::True)).list.sort, "SetHash.kv returns list of keys and values";
+    is $a.kv.sort, (1,2,3,True,True,True), "SetHash.kv returns list of keys and values";
 }
 
-
 {
     ok (SetHash.new: <a b c>) ~~ (SetHash.new: <a b c>), "Identical sets smartmatch with each other";
     nok (SetHash.new: <b c>) ~~ (SetHash.new: <a b c>), "Subset does not smartmatch";