Revision 2724417c test/hs/Test/Ganeti/TestHTools.hs

b/test/hs/Test/Ganeti/TestHTools.hs
99 99 
-- | Create an instance given its spec.
100 100 
createInstance :: Int -> Int -> Int -> Instance.Instance
101 101 
createInstance mem dsk vcpus =
102 
  Instance.create "inst-unnamed" mem dsk [dsk] vcpus Types.Running [] True (-1)
103 
    (-1) Types.DTDrbd8 1 []
102 
  Instance.create "inst-unnamed" mem dsk [Instance.Disk dsk Nothing] vcpus
103 
    Types.Running [] True (-1) (-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