Revision 22278fa7 htest/Test/Ganeti/HTools/CLI.hs

b/htest/Test/Ganeti/HTools/CLI.hs
118 118 
-- | Test that all binaries support some common options.
119 119 
case_stdopts :: Assertion
120 120 
case_stdopts =
121 
  mapM_ (\(name, (_, o)) -> checkEarlyExit defaultOptions name
122 
                            (o ++ genericOpts)) Program.personalities
121 
  mapM_ (\(name, (_, o, a)) -> checkEarlyExit defaultOptions name
122 
                               (o ++ genericOpts) a) Program.personalities
123 123 

  		





  124
  124
  
    
testSuite "HTools/CLI"


  		





  125
  125
  
    
          [ 'prop_parseISpec


  		












Also available in:
  Unified diff