Revision 9d929656 test/hs/Test/Ganeti/OpCodes.hs
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 523 | 523 |
HUnit.assertEqual "Mismatch in number of returned opcodes" |
| 524 | 524 |
(length decoded) (length with_sum) |
| 525 | 525 |
mapM_ (uncurry (HUnit.assertEqual "Different result after encoding/decoding") |
| 526 |
) $ zip decoded with_sum
|
|
| 526 |
) $ zip with_sum decoded
|
|
| 527 | 527 |
|
| 528 | 528 |
-- | Custom HUnit test case that forks a Python process and checks |
| 529 | 529 |
-- correspondence between Haskell OpCodes fields and their Python |
| ... | ... | |
| 556 | 556 |
HUnit.assertEqual "Mismatch in OP_ID" py_id hs_id |
| 557 | 557 |
HUnit.assertEqual ("Mismatch in fields for " ++ hs_id)
|
| 558 | 558 |
py_flds hs_flds |
| 559 |
) $ zip py_fields hs_fields
|
|
| 559 |
) $ zip hs_fields py_fields
|
|
| 560 | 560 |
|
| 561 | 561 |
-- | Checks that setOpComment works correctly. |
| 562 | 562 |
prop_setOpComment :: OpCodes.MetaOpCode -> String -> Property |
Also available in: Unified diff