Revision 9d929656 test/hs/Test/Ganeti/Runtime.hs
| b/test/hs/Test/Ganeti/Runtime.hs | ||
|---|---|---|
| 64 | 64 |
assertEqual "Mismatch in number of returned log files" |
| 65 | 65 |
(length decoded) (length daemons) |
| 66 | 66 |
mapM_ (uncurry (assertEqual "Different result after encoding/decoding") |
| 67 |
) $ zip decoded dfiles
|
|
| 67 |
) $ zip dfiles decoded
|
|
| 68 | 68 |
|
| 69 | 69 |
-- | Tests the compatibility between Haskell and Python users. |
| 70 | 70 |
case_UsersGroups :: Assertion |
| ... | ... | |
| 116 | 116 |
assertEqual "Mismatch in number of returned users" |
| 117 | 117 |
(length py_groups) (length groups) |
| 118 | 118 |
mapM_ (uncurry (assertEqual "Different result for users") |
| 119 |
) $ zip py_users users
|
|
| 119 |
) $ zip users py_users
|
|
| 120 | 120 |
mapM_ (uncurry (assertEqual "Different result for groups") |
| 121 |
) $ zip py_groups groups
|
|
| 121 |
) $ zip groups py_groups
|
|
| 122 | 122 |
|
| 123 | 123 |
testSuite "Runtime" |
| 124 | 124 |
[ 'case_LogFiles |
Also available in: Unified diff