Revision 908c2f67 test/hs/Test/Ganeti/HTools/Instance.hs
| b/test/hs/Test/Ganeti/HTools/Instance.hs | ||
|---|---|---|
| 62 | 62 |
sn <- arbitrary |
| 63 | 63 |
vcpus <- choose (0, lim_cpu) |
| 64 | 64 |
dt <- arbitrary |
| 65 |
return $ Instance.create name mem dsk [dsk] vcpus run_st [] True pn sn dt 1 |
|
| 65 |
return $ Instance.create name mem dsk [dsk] vcpus run_st [] True pn sn dt 1 []
|
|
| 66 | 66 |
|
| 67 | 67 |
-- | Generates an instance smaller than a node. |
| 68 | 68 |
genInstanceSmallerThanNode :: Node.Node -> Gen Instance.Instance |
Also available in: Unified diff