diff options
Diffstat (limited to 'Benchmark.hs')
-rw-r--r-- | Benchmark.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Benchmark.hs b/Benchmark.hs index a46e9f4..815053c 100644 --- a/Benchmark.hs +++ b/Benchmark.hs @@ -82,7 +82,7 @@ benchmarkPoW rounds seconds = do let Just mk = mkProofOfWorkRequirement seconds s <- newRequestIDSecret rid <- mkRequestID s - benchmark rounds (CPUCost (seconds * Seconds (fromIntegral rounds)) (Divisibility 1)) + benchmark rounds (CPUCost (seconds * fromIntegral rounds)) (Divisibility 1)) (return . genProofOfWork (mk rid)) benchmarkTunables :: Tunables -> IO () @@ -90,6 +90,9 @@ benchmarkTunables tunables = do putStrLn "/proc/cpuinfo:" putStrLn =<< readFile "/proc/cpuinfo" + putStrLn "Benchmarking 1 round of maximum size proof of work..." + print =<< benchmarkPoW 1 (maxProofOfWork / 2) + putStrLn "Benchmarking 1000 rounds of proof of work hash..." print =<< benchmarkExpensiveHash 1000 (proofOfWorkHashTunable 0) |