Revision e09c1fa0 htest/Test/Ganeti/HTools/CLI.hs

b/htest/Test/Ganeti/HTools/CLI.hs
26 26 

  		





  27
  27
  
    
-}


  		





  28
  28
  
    

  		





  29
  
  
    
module Test.Ganeti.HTools.CLI (testCLI) where


  		





  
  29
  
    
module Test.Ganeti.HTools.CLI (testHTools_CLI) where


  		





  30
  30
  
    

  		





  31
  31
  
    
import Test.QuickCheck


  		





  32
  32
  
    

  		





  ......




  116
  116
  
    
      -- apply checkEarlyExit across the cartesian product of params and opts


  		





  117
  117
  
    
  in conjoin [checkEarlyExit n o p | p <- params, (n, o) <- opts]


  		





  118
  118
  
    

  		





  119
  
  
    
testSuite "CLI"


  		





  
  119
  
    
testSuite "HTools/CLI"


  		





  120
  120
  
    
          [ 'prop_parseISpec


  		





  121
  121
  
    
          , 'prop_parseISpecFail


  		





  122
  122
  
    
          , 'prop_parseYesNo


  		












Also available in:
  Unified diff