fix *hash sorting stuff.

Raku · Feb 20, 2014 · 0905696 · 0905696
1 parent 2ff24c0
commit 0905696
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/S02-types/baghash.t b/S02-types/baghash.t
@@ -122,7 +122,7 @@ sub showkv($x) {
 
 {
     my $a = (1,2,3,2,2,2,2).BagHash;
-    is $a.kv.sort, ((2, 5), (1, 1), (3, 1)).list.sort, "BagHash.kv returns list of keys and values";
+    is $a.kv.sort({ .[0] }), ((1, 1), (2, 5), (3, 1)).list.sort, "BagHash.kv returns list of keys and values";
 }
 
 #?rakudo skip "Odd number of elements"

diff --git a/S02-types/mixhash.t b/S02-types/mixhash.t
@@ -123,7 +123,7 @@ sub showkv($x) {
 
 {
     my $a = (1,2,3,2,2,2,2).MixHash;
-    is $a.kv.sort, ((2, 5), (1, 1), (3, 1)).list.sort, "MixHash.kv returns list of keys and values";
+    is $a.kv.sort({ .[0] }), ((1, 1), (2, 5), (3, 1)).list.sort, "MixHash.kv returns list of keys and values";
 }
 
 

diff --git a/S02-types/sethash.t b/S02-types/sethash.t
@@ -70,7 +70,7 @@ sub showset($s) { $s.keys.sort.join(' ') }
 
 {
     my $a = (1,2,3,2,2,2,2).SetHash;
-    is $a.kv.sort, ((2, Bool::True), (1, Bool::True), (3, Bool::True)).list.sort, "SetHash.kv returns list of keys and values";
+    is $a.kv.sort, ((1, Bool::True), (2, Bool::True), (3, Bool::True)).list.sort, "SetHash.kv returns list of keys and values";
 }