Revision d79a6502 test/hs/Test/Ganeti/Luxi.hs
| b/test/hs/Test/Ganeti/Luxi.hs | ||
|---|---|---|
| 47 | 47 |
|
| 48 | 48 |
import Ganeti.BasicTypes |
| 49 | 49 |
import qualified Ganeti.Luxi as Luxi |
| 50 |
import qualified Ganeti.UDSServer as US |
|
| 50 | 51 |
|
| 51 | 52 |
{-# ANN module "HLint: ignore Use camelCase" #-}
|
| 52 | 53 |
|
| ... | ... | |
| 97 | 98 |
-- | Simple check that encoding/decoding of LuxiOp works. |
| 98 | 99 |
prop_CallEncoding :: Luxi.LuxiOp -> Property |
| 99 | 100 |
prop_CallEncoding op = |
| 100 |
(Luxi.validateCall (Luxi.buildCall op) >>= Luxi.decodeCall) ==? Ok op
|
|
| 101 |
(US.parseCall (Luxi.buildCall op) >>= uncurry Luxi.decodeLuxiCall) ==? Ok op
|
|
| 101 | 102 |
|
| 102 | 103 |
-- | Helper to a get a temporary file name. |
| 103 | 104 |
getTempFileName :: IO FilePath |
Also available in: Unified diff