new improved benchmark command that can benchmark anything git-annex does

This commit is contained in:
Joey Hess 2019-01-04 13:43:53 -04:00
parent 3b3d31583b
commit 11d6e2e260
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
11 changed files with 184 additions and 123 deletions

View file

@ -64,8 +64,13 @@ git_annex' command params = do
-- catch all errors, including normally fatal errors
try run ::IO (Either SomeException ())
where
run = GitAnnex.run dummyTestOptParser (\_ -> noop) (command:"-q":params)
run = GitAnnex.run dummyTestOptParser
dummyTestRunner
dummyBenchmarkGenerator
(command:"-q":params)
dummyTestOptParser = pure mempty
dummyTestRunner _ = noop
dummyBenchmarkGenerator _ _ = return noop
{- Runs git-annex and returns its output. -}
git_annex_output :: String -> [String] -> IO String