Revision 5b11f8db htest/Test/Ganeti/Daemon.hs
| b/htest/Test/Ganeti/Daemon.hs | ||
|---|---|---|
| 38 | 38 |
import Ganeti.Common |
| 39 | 39 |
import Ganeti.Daemon as Daemon |
| 40 | 40 |
|
| 41 |
{-# ANN module "HLint: ignore Use camelCase" #-}
|
|
| 42 |
|
|
| 41 | 43 |
-- | Test a few string arguments. |
| 42 | 44 |
prop_string_arg :: String -> Property |
| 43 | 45 |
prop_string_arg argument = |
| ... | ... | |
| 65 | 67 |
|
| 66 | 68 |
-- | Tests a few invalid arguments. |
| 67 | 69 |
case_wrong_arg :: Assertion |
| 68 |
case_wrong_arg = do
|
|
| 70 |
case_wrong_arg = |
|
| 69 | 71 |
mapM_ (passFailOpt defaultOptions assertFailure (return ())) |
| 70 | 72 |
[ (oSyslogUsage, "foo", "yes") |
| 71 | 73 |
, (oPort 0, "x", "10") |
Also available in: Unified diff