Revision c352b0a9 htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 106 | 106 |
|
| 107 | 107 |
-- | Create an instance given its spec |
| 108 | 108 |
createInstance mem dsk vcpus = |
| 109 |
Instance.create "inst-unnamed" mem dsk vcpus "running" [] (-1) (-1) |
|
| 109 |
Instance.create "inst-unnamed" mem dsk vcpus "running" [] True (-1) (-1)
|
|
| 110 | 110 |
|
| 111 | 111 |
-- | Create a small cluster by repeating a node spec |
| 112 | 112 |
makeSmallCluster :: Node.Node -> Int -> Node.List |
| ... | ... | |
| 184 | 184 |
pn <- arbitrary |
| 185 | 185 |
sn <- arbitrary |
| 186 | 186 |
vcpus <- choose (0, maxCpu) |
| 187 |
return $ Instance.create name mem dsk vcpus run_st [] pn sn |
|
| 187 |
return $ Instance.create name mem dsk vcpus run_st [] True pn sn
|
|
| 188 | 188 |
|
| 189 | 189 |
-- and a random node |
| 190 | 190 |
instance Arbitrary Node.Node where |
Also available in: Unified diff