diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-09-13 22:43:34 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-13 22:43:34 -0400 |
| commit | fd49dce7ad1d0a3f84ae267eb15939c1fa588b31 (patch) | |
| tree | 997254794a15c097598b784e69e812075e8a583b /Benchmark.hs | |
| parent | f6e0cf35a9e827def683cbe0bd0cfb3c708bcdc2 (diff) | |
| download | keysafe-fd49dce7ad1d0a3f84ae267eb15939c1fa588b31.tar.gz | |
another benchamrk
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) |