Revision 559c4a98 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)) -> do |
|
| 122 |
mapM_ (\(name, (_, o, a, _)) -> do
|
|
| 123 | 123 |
o' <- o |
| 124 | 124 |
checkEarlyExit defaultOptions name |
| 125 | 125 |
(o' ++ genericOpts) a) Program.personalities |
Also available in: Unified diff