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