Revision c8c071cb test/hs/Test/Ganeti/HTools/Cluster.hs

b/test/hs/Test/Ganeti/HTools/Cluster.hs
107 107 
  forAll (choose (1, 1024)) $ \count ->
108 108 
    (not (Node.offline node) && not (Node.failN1 node) && (count > 0) &&
109 109 
     (Node.tDsk node > 0) && (Node.tMem node > 0) &&
110 
     (Node.tSpindles node > 0)) ==>
110 
     (Node.tSpindles node > 0) && (Node.tCpu node > 0)) ==>
111 111 
  let fn = Node.buildPeers node Container.empty
112 112 
      nlst = replicate count fn
113 113 
      score = Cluster.compCVNodes nlst

Also available in: Unified diff