Revision a8038349 htest/Test/Ganeti/HTools/Cluster.hs
| b/htest/Test/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 391 | 391 |
forAll genOnlineNode $ \node -> |
| 392 | 392 |
forAll (choose (5, 20)) $ \count -> |
| 393 | 393 |
forAll (genInstanceSmallerThanNode node) $ \inst -> |
| 394 |
forAll (arbitrary `suchThat` (isFailure .
|
|
| 394 |
forAll (arbitrary `suchThat` (isBad .
|
|
| 395 | 395 |
Instance.instMatchesPolicy inst)) $ \ipol -> |
| 396 | 396 |
let rqn = Instance.requiredNodes $ Instance.diskTemplate inst |
| 397 | 397 |
node' = Node.setPolicy ipol node |
Also available in: Unified diff