Revision 942a9a6a htest/Test/Ganeti/Objects.hs
| b/htest/Test/Ganeti/Objects.hs | ||
|---|---|---|
| 199 | 199 |
d_keys = map fst defaults |
| 200 | 200 |
c_map = Map.fromList custom |
| 201 | 201 |
c_keys = map fst custom |
| 202 |
in printTestCase "Empty custom filling" |
|
| 203 |
(fillDict d_map Map.empty [] == d_map) .&&. |
|
| 204 |
printTestCase "Empty defaults filling" |
|
| 205 |
(fillDict Map.empty c_map [] == c_map) .&&. |
|
| 206 |
printTestCase "Delete all keys" |
|
| 207 |
(fillDict d_map c_map (d_keys++c_keys) == Map.empty) |
|
| 202 |
in conjoin [ printTestCase "Empty custom filling" |
|
| 203 |
(fillDict d_map Map.empty [] == d_map) |
|
| 204 |
, printTestCase "Empty defaults filling" |
|
| 205 |
(fillDict Map.empty c_map [] == c_map) |
|
| 206 |
, printTestCase "Delete all keys" |
|
| 207 |
(fillDict d_map c_map (d_keys++c_keys) == Map.empty) |
|
| 208 |
] |
|
| 208 | 209 |
|
| 209 | 210 |
-- | Test that the serialisation of 'DiskLogicalId', which is |
| 210 | 211 |
-- implemented manually, is idempotent. Since we don't have a |
Also available in: Unified diff