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

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

  		





  125
  127
  
    
testSuite "HTools/CLI"


  		





  126
  128
  
    
          [ 'prop_parseISpec


  		












Also available in:
  Unified diff