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

make bench tests with command arguments work

Browse Source
This commit is contained in:
Simon Michael 2009-05-29 12:09:39 +00:00
parent bb29623d6e
commit 6958d47329
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/bench.hs
View File

@ -62,7 +62,7 @@ usagehdr = "bench [-f testsfile] [-n iterations] [-p precision] executable1 [exe
"Run some functional tests with each of the specified executables,\n" ++ "Run some functional tests with each of the specified executables,\n" ++
"where a test is \"zero or more arguments supported by all executables\",\n" ++ "where a test is \"zero or more arguments supported by all executables\",\n" ++
"and report the best execution times.\n" "and report the best execution times.\n"
options = [ options = [
Option ['f'] ["testsfile"] (ReqArg File "testsfile") "file containing tests, one per line, default: bench.tests" Option ['f'] ["testsfile"] (ReqArg File "testsfile") "file containing tests, one per line, default: bench.tests"
,Option ['n'] ["iterations"] (ReqArg Num "iterations") "number of test iterations to run, default: 2" ,Option ['n'] ["iterations"] (ReqArg Num "iterations") "number of test iterations to run, default: 2"
@ -149,7 +149,7 @@ doiteration opts test exe iteration = do
time :: String -> IO Float time :: String -> IO Float
time cmd = do time cmd = do
t1 <- getCurrentTime t1 <- getCurrentTime
ret <- system $ cmd ++ ">/dev/null 2>&1" ret <- system $ cmd ++ " >/dev/null 2>&1"
case ret of case ret of
ExitSuccess -> return () ExitSuccess -> return ()
ExitFailure f -> putStr $ printf " (error %d)" f ExitFailure f -> putStr $ printf " (error %d)" f