Revision a664325e htest/test.hs

b/htest/test.hs
28 28
import Data.Monoid (mappend)
29 29
import Test.Framework
30 30
import System.Environment (getArgs)
31
import System.Log.Logger
31 32

  
32 33
import Test.Ganeti.TestImports ()
33 34
import Test.Ganeti.Attoparsec
......
120 121
main = do
121 122
  ropts <- getArgs >>= interpretArgsOrExit
122 123
  let opts = maybe defOpts (defOpts `mappend`) $ ropt_test_options ropts
124
  -- silence the logging system, so that tests can execute I/O actions
125
  -- which create logs without polluting stderr
126
  -- FIXME: improve this by allowing tests to use logging if needed
127
  updateGlobalLogger rootLoggerName (setLevel EMERGENCY)
123 128
  defaultMainWithOpts allTests (ropts { ropt_test_options = Just opts })

Also available in: Unified diff