Add tests

sel/test/Main.hs

@@ -6,6 +6,7 @@ import LibSodium.Bindings.Main (sodiumInit)
 import qualified Test.Hashing as Hashing
 import qualified Test.Hashing.Password as Password
 import qualified Test.Hashing.SHA2 as SHA2
+import qualified Test.Hashing.Short as Short
 import qualified Test.PublicKey.Cipher as PublicKey.Cipher
 import qualified Test.PublicKey.Seal as PublicKey.Seal
 import qualified Test.PublicKey.Signature as PublicKey.Signature
@@ -20,6 +21,7 @@ specs :: [TestTree]
 specs =
   [ Hashing.spec
   , Password.spec
+  , Short.spec
   , PublicKey.Signature.spec
   , PublicKey.Cipher.spec
   , PublicKey.Seal.spec

sel/test/Test/Hashing/Short.hs

@@ -0,0 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Test.Hashing.Short where
+
+import Data.Maybe (fromJust)
+import Data.Text (Text)
+import qualified Sel.Hashing.Short as Short
+import Test.Tasty
+import Test.Tasty.HUnit
+
+spec :: TestTree
+spec =
+  testGroup
+    "Password hashing tests"
+    [ testCase "Hash a short string with a known salt" testHashPassword
+    ]
+
+testHashPassword :: Assertion
+testHashPassword = do
+  let key = fromJust $ Short.hexTextToShortHashKey "9301a3c5eedf2d783b72dc41fb907964"
+  let input = "kwak kwak" :: Text
+  hash <- Short.hashText key input
+  assertEqual
+    "input hashing is consistent"
+    (Short.shortHashToHexText hash)
+    "d50bb18bee915f21a30e6ea555c34546"