test: added schema to hash-masked-password and fixed test

src/utils/security/core.cljs

@@ -1,6 +1,7 @@
 (ns utils.security.core
   (:require
     [native-module.core :as native-module]
+    [schema.core :as schema]
     [utils.security.security-html :as h]))
 
 (defprotocol Unmaskable
@@ -60,7 +61,21 @@
   [text]
   (not (re-matches rtlo-link-regex text)))
 
-(def hash-masked-password
-  (comp mask-data
-        native-module/sha3
-        safe-unmask-data))
+(defn hash-masked-password
+  [masked-password]
+  (-> masked-password
+      safe-unmask-data
+      native-module/sha3
+      mask-data))
+
+(defn masked-data-instance?
+  [value]
+  (instance? MaskedData value))
+
+(schema/=> hash-masked-password
+  [:=>
+   [:cat
+    [:fn {:error/message "argument should be an instance of MaskedData"}
+     masked-data-instance?]]
+   [:fn {:error/message "return value should be an instance of MaskedData"}
+    masked-data-instance?]])

src/utils/security/security_test.cljs

@@ -51,6 +51,5 @@
   (testing "returns an instance of MaskedData with the hashed content"
     (is (= (-> "test" native-module/sha3 security/mask-data)
            (-> "test" security/mask-data security/hash-masked-password))))
-  (testing "returns the hashed content if the argument is not a MaskedData instance"
-    (is (= (native-module/sha3 "test")
-           (-> "test" security/hash-masked-password security/safe-unmask-data)))))
+  (testing "throws a schema exception if the argument is not an instance of MaskedData"
+    (is (thrown? js/Error (security/hash-masked-password "test")))))