bring Hash.reverse up to date; test S32-hash/reverse.t

rakudo · Apr 10, 2009 · 029aa51 · 029aa51
1 parent 7b2c47c
commit 029aa51
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/src/setting/Hash.pm b/src/setting/Hash.pm
@@ -1,8 +1,12 @@
 class Hash is also {
-    our Hash multi method reverse ( %hash: ) is export {
-        my %result;
-        (%result).{%hash.values} = %hash.keys;
-        %result;
+    multi method reverse () is export {
+        gather { 
+            for @.pairs {
+                for @( .value ) -> $i {
+                    take ($i => .key)
+                }
+            }
+        }
     }
 
     multi method push (*@values) {

diff --git a/t/spectest.data b/t/spectest.data
@@ -322,6 +322,7 @@ S32-hash/exists.t
 S32-hash/keys_values.t
 S32-hash/pairs.t
 S32-hash/push.t
+S32-hash/reverse.t
 S32-hash/slice.t
 S32-list/end.t
 S32-list/first.t