Revision 09d8b0fc
| 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