Revision 981bb5cf htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 175 | 175 |
-- | Create an instance given its spec. |
| 176 | 176 |
createInstance mem dsk vcpus = |
| 177 | 177 |
Instance.create "inst-unnamed" mem dsk vcpus Types.Running [] True (-1) (-1) |
| 178 |
Types.DTDrbd8 |
|
| 178 |
Types.DTDrbd8 1
|
|
| 179 | 179 |
|
| 180 | 180 |
-- | Create a small cluster by repeating a node spec. |
| 181 | 181 |
makeSmallCluster :: Node.Node -> Int -> Node.List |
| ... | ... | |
| 313 | 313 |
sn <- arbitrary |
| 314 | 314 |
vcpus <- choose (0, lim_cpu) |
| 315 | 315 |
return $ Instance.create name mem dsk vcpus run_st [] True pn sn |
| 316 |
Types.DTDrbd8 |
|
| 316 |
Types.DTDrbd8 1
|
|
| 317 | 317 |
|
| 318 | 318 |
-- | Generates an instance smaller than a node. |
| 319 | 319 |
genInstanceSmallerThanNode :: Node.Node -> Gen Instance.Instance |
Also available in: Unified diff