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