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