pbkdf

commit 9a69e3423e5385ef97933eef9841cf5d76d5e3eb
parent 0b273110564ae471d4bae64d371783e9ecdb8bf7
Author: Jared Tobin <jared@jtobin.io>
Date:   Mon, 24 Feb 2025 11:38:38 +0400

bench: suite

Diffstat:
M
bench/Main.hs
 | 
25
++++++++++++++++++++++++-

1 file changed, 24 insertions(+), 1 deletion(-)
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -1,4 +1,27 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Main where
 
+import Criterion.Main
+import qualified Crypto.KDF.PBKDF as KDF
+import qualified Crypto.Hash.SHA256 as SHA256
+import qualified Crypto.Hash.SHA512 as SHA512
+
 main :: IO ()
-main = pure ()
+main = defaultMain [
+    suite
+  ]
+
+suite :: Benchmark
+suite =
+  bgroup "ppad-pbkdf" [
+    bgroup "PBKDF-SHA256" [
+      bench "derive (outlen 32)" $
+        nf (KDF.derive SHA256.hmac "muh password" "muh salt" 32) 64
+    ]
+  , bgroup "PBKDF-SHA512" [
+      bench "derive (outlen 32)" $
+        nf (KDF.derive SHA512.hmac "muh password" "muh salt" 32) 64
+    ]
+  ]
+