slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tools: benchmark cleanup

Browse Source
This commit is contained in:
Simon Michael 2015-06-27 06:35:00 -07:00
parent 89513fc256
commit f9f0f16a9c
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger/bench/bench.hs
View File

@ -3,14 +3,11 @@
-- With --criterion, show accurate times (slow). -- With --criterion, show accurate times (slow).
-- With --simplebench, show approximate times for the commands in default.bench, using the first hledger executable on $PATH. -- With --simplebench, show approximate times for the commands in default.bench, using the first hledger executable on $PATH.
import Control.Concurrent (threadDelay)
import Criterion.Main (defaultMainWith, defaultConfig, bench, nfIO) import Criterion.Main (defaultMainWith, defaultConfig, bench, nfIO)
-- import Criterion.Types
import SimpleBench (defaultMain) import SimpleBench (defaultMain)
import System.Directory (getCurrentDirectory) import System.Directory (getCurrentDirectory)
import System.Environment (getArgs, withArgs) import System.Environment (getArgs, withArgs)
import System.Info (os) import System.Info (os)
-- import System.IO (hFlush, stdout)
import System.Process (readProcess) import System.Process (readProcess)
import System.TimeIt (timeItT) import System.TimeIt (timeItT)
import Text.Printf import Text.Printf
@ -22,10 +19,6 @@ inputfile = "bench/10000x1000x10.journal"
outputfile = "/dev/null" -- hide output of benchmarked commands (XXX unixism) outputfile = "/dev/null" -- hide output of benchmarked commands (XXX unixism)
-- outputfile = "-" -- show output of benchmarked commands -- outputfile = "-" -- show output of benchmarked commands
-- a delay to avoid truncation of final output by "stack bench"
-- https://github.com/commercialhaskell/stack/issues/413
stackFinalOutputDelaySeconds = 0 -- 10
main = do main = do
-- withArgs ["--simplebench"] $ do -- withArgs ["--simplebench"] $ do
-- withArgs ["--criterion"] $ do -- withArgs ["--criterion"] $ do
@ -35,8 +28,6 @@ main = do
else if "--simplebench" `elem` args else if "--simplebench" `elem` args
then benchWithSimplebench then benchWithSimplebench
else benchWithTimeit else benchWithTimeit
-- hFlush stdout
threadDelay (stackFinalOutputDelaySeconds * 1000000)
benchWithTimeit = do benchWithTimeit = do
getCurrentDirectory >>= printf "Benchmarking hledger in %s with timeit\n" getCurrentDirectory >>= printf "Benchmarking hledger in %s with timeit\n"