Revision 9d929656 test/hs/Test/Ganeti/Objects.hs
| b/test/hs/Test/Ganeti/Objects.hs | ||
|---|---|---|
| 396 | 396 |
HUnit.assertEqual "Mismatch in number of returned networks" |
| 397 | 397 |
(length decoded) (length networks_with_properties) |
| 398 | 398 |
mapM_ (uncurry (HUnit.assertEqual "Different result after encoding/decoding") |
| 399 |
) $ zip decoded networks_with_properties
|
|
| 399 |
) $ zip networks_with_properties decoded
|
|
| 400 | 400 |
|
| 401 | 401 |
-- | Creates a tuple of the given network combined with some of its properties |
| 402 | 402 |
-- to be compared against the same properties generated by the python code. |
| ... | ... | |
| 439 | 439 |
HUnit.assertEqual "Mismatch in number of returned node groups" |
| 440 | 440 |
(length decoded) (length groups) |
| 441 | 441 |
mapM_ (uncurry (HUnit.assertEqual "Different result after encoding/decoding") |
| 442 |
) $ zip decoded groups
|
|
| 442 |
) $ zip groups decoded
|
|
| 443 | 443 |
|
| 444 | 444 |
-- | Generates a node group with up to 3 networks. |
| 445 | 445 |
-- | FIXME: This generates still somewhat completely random data, without normal |
| ... | ... | |
| 533 | 533 |
HUnit.assertEqual "Mismatch in number of returned instances" |
| 534 | 534 |
(length decoded) (length instances) |
| 535 | 535 |
mapM_ (uncurry (HUnit.assertEqual "Different result after encoding/decoding") |
| 536 |
) $ zip decoded instances
|
|
| 536 |
) $ zip instances decoded
|
|
| 537 | 537 |
|
| 538 | 538 |
-- | Tests that the logical ID is correctly found in a plain disk |
| 539 | 539 |
caseIncludeLogicalIdPlain :: HUnit.Assertion |
Also available in: Unified diff