Add test generation for RFC 6979 k value generation.

This commit is contained in:
2019-01-18 21:53:52 -08:00
parent f4e47154c2
commit c5e9d4be25
4 changed files with 158 additions and 3 deletions

View File

@@ -7,6 +7,7 @@ import Control.Monad(replicateM_,void)
import Crypto.Random(SystemDRG,getSystemDRG)
import ECDSATesting(ecdsaTasks)
import GHC.Conc(getNumCapabilities)
import RFC6979(rfcTasks)
import System.Console.AsciiProgress
import Task(Task, runTask)
@@ -34,6 +35,6 @@ main = displayConsoleRegions $
do
executors <- getNumCapabilities
done <- newChan
tasks <- newMVar (ecdsaTasks)
tasks <- newMVar (ecdsaTasks ++ rfcTasks)
replicateM_ executors (spawnExecutor tasks done)
replicateM_ executors (void $ readChan done)