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