Browse files

fix *hash sorting stuff.

  • Loading branch information...
1 parent 2ff24c0 commit 0905696a35b10b62e5695da20d53fd75cb73bc9b @timo timo committed Feb 20, 2014
Showing with 3 additions and 3 deletions.
  1. +1 −1 S02-types/baghash.t
  2. +1 −1 S02-types/mixhash.t
  3. +1 −1 S02-types/sethash.t
View
2 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"
View
2 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";
}
View
2 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";
}

0 comments on commit 0905696

Please sign in to comment.