mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

disable debug output in test suite

Browse source 
Added during a dev session in Jan and kept accidentially.
This commit is contained in:
Joey Hess 2015-06-17 13:49:29 -04:00
parent 6e829939e9
commit 8e83485d9b
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Test.hs
View file

@ -43,6 +43,7 @@ import qualified Logs.Remote
import qualified Logs.Unused import qualified Logs.Unused
import qualified Logs.Transfer import qualified Logs.Transfer
import qualified Logs.Presence import qualified Logs.Presence
import qualified Logs.PreferredContent
import qualified Types.MetaData import qualified Types.MetaData
import qualified Remote import qualified Remote
import qualified Types.Key import qualified Types.Key
@ -79,12 +80,9 @@ import qualified Remote.Helper.Encryptable
import qualified Types.Crypto import qualified Types.Crypto
import qualified Utility.Gpg import qualified Utility.Gpg
#endif #endif
import qualified Messages
import qualified Logs.PreferredContent
main :: [String] -> IO () main :: [String] -> IO ()
main ps = do main ps = do
Messages.enableDebugOutput
let tests = testGroup "Tests" let tests = testGroup "Tests"
-- Test both direct and indirect mode. -- Test both direct and indirect mode.
-- Windows is only going to use direct mode, -- Windows is only going to use direct mode,