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