Revision 908c2f67 test/hs/Test/Ganeti/TestHTools.hs
b/test/hs/Test/Ganeti/TestHTools.hs | ||
---|---|---|
100 | 100 |
createInstance :: Int -> Int -> Int -> Instance.Instance |
101 | 101 |
createInstance mem dsk vcpus = |
102 | 102 |
Instance.create "inst-unnamed" mem dsk [dsk] vcpus Types.Running [] True (-1) |
103 |
(-1) Types.DTDrbd8 1 |
|
103 |
(-1) Types.DTDrbd8 1 []
|
|
104 | 104 |
|
105 | 105 |
-- | Create a small cluster by repeating a node spec. |
106 | 106 |
makeSmallCluster :: Node.Node -> Int -> Node.List |
Also available in: Unified diff