Revision 7345b69b htools/test.hs

b/htools/test.hs
28 28 
import Data.Char
29 29 
import Data.IORef
30 30 
import Data.List
31 
import Test.QuickCheck
32 31 
import System.Console.GetOpt ()
33 
import System.IO
32 
import System.Environment (getArgs)
34 33 
import System.Exit
35 
import System (getArgs)
34 
import System.IO
35 
import Test.QuickCheck
36 36 
import Text.Printf
37 37 

  		





  38
  38
  
    
import Ganeti.HTools.QC


  		





  ......




  147
  147
  
    
main = do


  		





  148
  148
  
    
  errs <- newIORef 0


  		





  149
  149
  
    
  let wrap = map (wrapTest errs)


  		





  150
  
  
    
  cmd_args <- System.getArgs


  		





  
  150
  
    
  cmd_args <- getArgs


  		





  151
  151
  
    
  (opts, args) <- parseOpts cmd_args "test" options


  		





  152
  152
  
    
  tests <- (if null args


  		





  153
  153
  
    
              then return allTests


  		












Also available in:
  Unified diff