added key_hash comparison tests

Author: InfiniteSwerve

deku-p/src/core/crypto/tests/alg_intf_tests.ml

@@ -22,6 +22,11 @@ struct
       List.for_all (fun sk -> Secret.equal sk sk) secret_keys
   end
 
+  module Key_hash_data = struct
+    let key_hashes = List.map (fun id -> id.public_key_hash) ids
+    let compared_key_hashes = List.sort Key_hash.compare key_hashes
+  end
+
   module Test_secret_key_data = struct
     let public_keys () =
       let public_keys =
@@ -47,4 +52,16 @@ struct
         ~expected:Tezos_data.equality_secret_keys
         ~actual:Secret_key_data.equality_secret_keys
   end
+
+  module Test_key_hash_data = struct
+    let compare () =
+      let compared_key_hashes =
+        List.map
+          (fun kh -> Key_hash.to_b58 kh)
+          Key_hash_data.compared_key_hashes
+      in
+      Alcotest.(check' (list string))
+        ~msg:"key hash comparison works"
+        ~expected:Tezos_data.compared_key_hashes ~actual:compared_key_hashes
+  end
 end

deku-p/src/core/crypto/tests/test_ed25519.ml

@@ -88,4 +88,5 @@ let run () =
           test_case "compare" `Quick Test_secret_key_data.compare;
           test_case "equality" `Quick Test_secret_key_data.equality;
         ] );
+      ("Key hash", [ test_case "compare" `Quick Test_key_hash_data.compare ]);
     ]