Revision 241cea1e 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 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