Revision 5183e8be htest/Test/Ganeti/Query/Query.hs
b/htest/Test/Ganeti/Query/Query.hs | ||
---|---|---|
43 | 43 |
import Test.Ganeti.Objects (genEmptyCluster) |
44 | 44 |
|
45 | 45 |
import Ganeti.BasicTypes |
46 |
import Ganeti.Errors |
|
46 | 47 |
import Ganeti.Query.Group |
47 | 48 |
import Ganeti.Query.Language |
48 | 49 |
import Ganeti.Query.Node |
... | ... | |
147 | 148 |
case_queryNode_allfields :: Assertion |
148 | 149 |
case_queryNode_allfields = do |
149 | 150 |
fdefs <- case queryFields (QueryFields QRNode []) of |
150 |
Bad msg -> fail $ "Error in query all fields: " ++ msg |
|
151 |
Bad msg -> fail $ "Error in query all fields: " ++ |
|
152 |
formatError msg |
|
151 | 153 |
Ok (QueryFieldsResult v) -> return v |
152 | 154 |
let field_sort = compare `on` fdefName |
153 | 155 |
assertEqual "Mismatch in all fields list" |
... | ... | |
215 | 217 |
case_queryGroup_allfields :: Assertion |
216 | 218 |
case_queryGroup_allfields = do |
217 | 219 |
fdefs <- case queryFields (QueryFields QRGroup []) of |
218 |
Bad msg -> fail $ "Error in query all fields: " ++ msg |
|
220 |
Bad msg -> fail $ "Error in query all fields: " ++ |
|
221 |
formatError msg |
|
219 | 222 |
Ok (QueryFieldsResult v) -> return v |
220 | 223 |
let field_sort = compare `on` fdefName |
221 | 224 |
assertEqual "Mismatch in all fields list" |
Also available in: Unified diff