hmac-drbg

commit ddf58a22a1746abaa79f74ca2eb33b035cede7dc
parent 211dd91a55144390a8af5451e6fa37efd143e2da
Author: Jared Tobin <jared@jtobin.io>
Date:   Thu,  6 Feb 2025 17:30:06 +0400

bench: fix derpy error

The 'gen' cases for HMAC-SHA512 were actually using a HMAC-SHA256 DRBG.

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

1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -11,24 +11,25 @@ import qualified Crypto.Hash.SHA512 as SHA512
 
 main :: IO ()
 main = do
-  !drbg <- DRBG.new SHA256.hmac mempty mempty mempty -- no NFData
+  !drbg256 <- DRBG.new SHA256.hmac mempty mempty mempty -- no NFData
+  !drbg512 <- DRBG.new SHA512.hmac mempty mempty mempty -- no NFData
   defaultMain [
-      suite drbg
+      suite drbg256 drbg512
     ]
 
-suite drbg =
+suite drbg256 drbg512 =
   bgroup "ppad-hmac-drbg" [
     bgroup "HMAC-SHA256" [
       bench "new" $ whnfAppIO (DRBG.new SHA256.hmac mempty mempty) mempty
-    , bench "reseed" $ whnfAppIO (DRBG.reseed mempty mempty) drbg
-    , bench "gen (32B)"  $ whnfAppIO (DRBG.gen mempty 32) drbg
-    , bench "gen (256B)" $ whnfAppIO (DRBG.gen mempty 256) drbg
+    , bench "reseed" $ whnfAppIO (DRBG.reseed mempty mempty) drbg256
+    , bench "gen (32B)"  $ nfAppIO (DRBG.gen mempty 32) drbg256
+    , bench "gen (256B)" $ nfAppIO (DRBG.gen mempty 256) drbg256
     ]
   , bgroup "HMAC-SHA512" [
       bench "new" $ whnfAppIO (DRBG.new SHA512.hmac mempty mempty) mempty
-    , bench "reseed" $ whnfAppIO (DRBG.reseed mempty mempty) drbg
-    , bench "gen (32B)"  $ whnfAppIO (DRBG.gen mempty 32) drbg
-    , bench "gen (256B)" $ whnfAppIO (DRBG.gen mempty 256) drbg
+    , bench "reseed" $ whnfAppIO (DRBG.reseed mempty mempty) drbg512
+    , bench "gen (32B)"  $ nfAppIO (DRBG.gen mempty 32) drbg512
+    , bench "gen (256B)" $ nfAppIO (DRBG.gen mempty 256) drbg512
     ]
   ]