Revision 1251817b htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 1363 | 1363 |
forAll (choose (3, 5)) $ \count -> |
| 1364 | 1364 |
not (Node.offline node) && not (Node.failN1 node) ==> |
| 1365 | 1365 |
let nl = makeSmallCluster node count |
| 1366 |
(hnode, nl') = IntMap.deleteFindMax nl |
|
| 1366 |
hnode = snd $ IntMap.findMax nl |
|
| 1367 |
nl' = IntMap.deleteMax nl |
|
| 1367 | 1368 |
il = Container.empty |
| 1368 | 1369 |
allocnodes = Cluster.genAllocNodes defGroupList nl' 2 True |
| 1369 | 1370 |
i_templ = createInstance Types.unitMem Types.unitDsk Types.unitCpu |
Also available in: Unified diff