don't force quiet mode for tests expected to succeed

This way when there's a failure the output is available to understand
the problem. Should help with some intermittent test failures that I
have not been able to reproduce to understand why it's failing.

Does mean the test output is more verbose, but it was already very
verbose.
This commit is contained in:
Joey Hess 2019-02-18 18:56:26 -04:00
parent 1e95bc4fd1
commit fe9bfa8157
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -55,7 +55,7 @@ git_annex command params = git_annex' command params >>= \case
-- For when git-annex is expected to fail.
git_annex_shouldfail :: String -> [String] -> IO Bool
git_annex_shouldfail command params = git_annex' command params >>= \case
git_annex_shouldfail command params = git_annex' command ("-q":params) >>= \case
Right () -> return False
Left _ -> return True
@ -67,7 +67,7 @@ git_annex' command params = do
run = GitAnnex.run dummyTestOptParser
dummyTestRunner
dummyBenchmarkGenerator
(command:"-q":params)
(command:params)
dummyTestOptParser = pure mempty
dummyTestRunner _ = noop
dummyBenchmarkGenerator _ _ = return noop