Revision f94a9680 htest/Test/Ganeti/Query/Query.hs
b/htest/Test/Ganeti/Query/Query.hs | ||
---|---|---|
156 | 156 |
Ok (QueryFieldsResult v) -> return v |
157 | 157 |
let field_sort = compare `on` fdefName |
158 | 158 |
assertEqual "Mismatch in all fields list" |
159 |
(sortBy field_sort . map fst $ Map.elems nodeFieldsMap)
|
|
159 |
(sortBy field_sort . map (\(f, _, _) -> f) $ Map.elems nodeFieldsMap)
|
|
160 | 160 |
(sortBy field_sort fdefs) |
161 | 161 |
|
162 | 162 |
-- * Same as above, but for group |
... | ... | |
228 | 228 |
Ok (QueryFieldsResult v) -> return v |
229 | 229 |
let field_sort = compare `on` fdefName |
230 | 230 |
assertEqual "Mismatch in all fields list" |
231 |
(sortBy field_sort . map fst $ Map.elems groupFieldsMap)
|
|
231 |
(sortBy field_sort . map (\(f, _, _) -> f) $ Map.elems groupFieldsMap)
|
|
232 | 232 |
(sortBy field_sort fdefs) |
233 | 233 |
|
234 | 234 |
|
Also available in: Unified diff