Revision bc4cdeef htest/Test/Ganeti/Query/Query.hs
| b/htest/Test/Ganeti/Query/Query.hs | ||
|---|---|---|
| 210 | 210 |
(sortBy field_sort . map fst $ Map.elems groupFieldsMap) |
| 211 | 211 |
(sortBy field_sort fdefs) |
| 212 | 212 |
|
| 213 |
|
|
| 214 |
-- | Tests that requested names checking behaves as expected. |
|
| 215 |
prop_getRequestedNames :: Property |
|
| 216 |
prop_getRequestedNames = |
|
| 217 |
forAll getName $ \node1 -> |
|
| 218 |
let chk = getRequestedNames . Query QRNode [] |
|
| 219 |
q_node1 = QuotedString node1 |
|
| 220 |
eq_name = EQFilter "name" |
|
| 221 |
eq_node1 = eq_name q_node1 |
|
| 222 |
in conjoin [ printTestCase "empty filter" $ chk EmptyFilter ==? [] |
|
| 223 |
, printTestCase "and filter" $ chk (AndFilter [eq_node1]) ==? [] |
|
| 224 |
, printTestCase "simple equality" $ chk eq_node1 ==? [node1] |
|
| 225 |
, printTestCase "non-name field" $ |
|
| 226 |
chk (EQFilter "foo" q_node1) ==? [] |
|
| 227 |
, printTestCase "non-simple filter" $ |
|
| 228 |
chk (OrFilter [ eq_node1 , LTFilter "foo" q_node1]) ==? [] |
|
| 229 |
] |
|
| 230 |
|
|
| 213 | 231 |
testSuite "Query/Query" |
| 214 | 232 |
[ 'prop_queryNode_noUnknown |
| 215 | 233 |
, 'prop_queryNode_Unknown |
| ... | ... | |
| 219 | 237 |
, 'prop_queryGroup_Unknown |
| 220 | 238 |
, 'prop_queryGroup_types |
| 221 | 239 |
, 'case_queryGroup_allfields |
| 240 |
, 'prop_getRequestedNames |
|
| 222 | 241 |
] |
Also available in: Unified diff