Revision 9d929656 test/hs/Test/Ganeti/JQueue.hs
b/test/hs/Test/Ganeti/JQueue.hs | ||
---|---|---|
170 | 170 |
let hs_sp = (jobStatusToRaw $ calcJobStatus job, |
171 | 171 |
calcJobPriority job) |
172 | 172 |
in assertEqual ("Different result after encoding/decoding for " ++ |
173 |
show job) py_sp hs_sp
|
|
173 |
show job) hs_sp py_sp
|
|
174 | 174 |
) $ zip decoded jobs |
175 | 175 |
|
176 | 176 |
-- | Tests listing of Job ids. |
Also available in: Unified diff