Revision 09d8b0fc test/hs/Test/Ganeti/HTools/Cluster.hs

b/test/hs/Test/Ganeti/HTools/Cluster.hs
126 126
  in Cluster.csAdsk cstats >= 0 &&
127 127
     Cluster.csAdsk cstats <= Cluster.csFdsk cstats
128 128

  
129
-- | Check that one instance is allocated correctly, without
130
-- rebalances needed.
129
-- | Check that one instance is allocated correctly on an empty cluster,
130
-- without rebalances needed.
131 131
prop_Alloc_sane :: Instance.Instance -> Property
132 132
prop_Alloc_sane inst =
133 133
  forAll (choose (5, 20)) $ \count ->

Also available in: Unified diff