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