Revision 39f0eea5 htest/Test/Ganeti/HTools/Cluster.hs
b/htest/Test/Ganeti/HTools/Cluster.hs | ||
---|---|---|
346 | 346 |
prop_CheckConsistency :: Node.Node -> Instance.Instance -> Bool |
347 | 347 |
prop_CheckConsistency node inst = |
348 | 348 |
let nl = makeSmallCluster node 3 |
349 |
[node1, node2, node3] = Container.elems nl |
|
349 |
(node1, node2, node3) = |
|
350 |
case Container.elems nl of |
|
351 |
[a, b, c] -> (a, b, c) |
|
352 |
l -> error $ "Invalid node list out of makeSmallCluster/3: " ++ |
|
353 |
show l |
|
350 | 354 |
node3' = node3 { Node.group = 1 } |
351 | 355 |
nl' = Container.add (Node.idx node3') node3' nl |
352 | 356 |
inst1 = Instance.setBoth inst (Node.idx node1) (Node.idx node2) |
Also available in: Unified diff