Start generating RSA test cases as part of the normal infrastructure.

This commit is contained in:
2019-03-01 20:44:33 -08:00
parent 15ec3c5c9b
commit bf13f4a1e6
20 changed files with 13279 additions and 124 deletions

View File

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