Revision 5a13489b test/hs/Test/Ganeti/HTools/Cluster.hs
b/test/hs/Test/Ganeti/HTools/Cluster.hs | ||
---|---|---|
394 | 394 |
forAll genOnlineNode $ \node -> |
395 | 395 |
forAll (choose (5, 20)) $ \count -> |
396 | 396 |
forAll (genInstanceSmallerThanNode node) $ \inst -> |
397 |
forAll (arbitrary `suchThat` (isBad . |
|
398 |
Instance.instMatchesPolicy inst)) $ \ipol -> |
|
397 |
forAll (arbitrary `suchThat` |
|
398 |
(isBad . flip (Instance.instMatchesPolicy inst) |
|
399 |
(Node.exclStorage node))) $ \ipol -> |
|
399 | 400 |
let rqn = Instance.requiredNodes $ Instance.diskTemplate inst |
400 | 401 |
node' = Node.setPolicy ipol node |
401 | 402 |
nl = makeSmallCluster node' count |
Also available in: Unified diff