Revision 241cea1e test/hs/Test/Ganeti/TestHTools.hs
b/test/hs/Test/Ganeti/TestHTools.hs | ||
---|---|---|
96 | 96 |
-- | Create an instance given its spec. |
97 | 97 |
createInstance :: Int -> Int -> Int -> Instance.Instance |
98 | 98 |
createInstance mem dsk vcpus = |
99 |
Instance.create "inst-unnamed" mem dsk vcpus Types.Running [] True (-1) (-1)
|
|
100 |
Types.DTDrbd8 1 |
|
99 |
Instance.create "inst-unnamed" mem dsk [dsk] vcpus Types.Running [] True (-1)
|
|
100 |
(-1) Types.DTDrbd8 1
|
|
101 | 101 |
|
102 | 102 |
-- | Create a small cluster by repeating a node spec. |
103 | 103 |
makeSmallCluster :: Node.Node -> Int -> Node.List |
Also available in: Unified diff