Revision ee4ffc8a htools/test.hs

b/htools/test.hs
28 28 
import Data.Char
29 29 
import Data.IORef
30 30 
import Data.List
31 
import Data.Maybe (fromMaybe)
31 32 
import System.Console.GetOpt ()
32 33 
import System.Environment (getArgs)
33 34 
import System.Exit
......
46 47 
  , oVerbose
47 48 
  , oShowVer
48 49 
  , oShowHelp
50 
  , oTestCount
49 51 
  ]
50 52 

  		





  51
  53
  
    
fast :: Args


  		





  ......




  141
  143
  
    
           case vs of


  		





  142
  144
  
    
             [rng, size] -> return $ Just (read rng, read size)


  		





  143
  145
  
    
             _ -> fail "Invalid state given"


  		





  144
  
  
    
  return args { chatty = optVerbose opts > 1,


  		





  145
  
  
    
                replay = r


  		





  
  146
  
    
  return args { chatty = optVerbose opts > 1


  		





  
  147
  
    
              , replay = r


  		





  
  148
  
    
              , maxSuccess = fromMaybe (maxSuccess args) (optTestCount opts)


  		





  
  149
  
    
              , maxDiscard = fromMaybe (maxDiscard args) (optTestCount opts)


  		





  146
  150
  
    
              }


  		





  147
  151
  
    

  		





  148
  152
  
    
main :: IO ()


  		












Also available in:
  Unified diff