Revision a664325e

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