Revision a8038349 htest/Test/Ganeti/TestHTools.hs

b/htest/Test/Ganeti/TestHTools.hs
84 84 
defGroupAssoc :: Map.Map String Types.Gdx
85 85 
defGroupAssoc = Map.singleton (Group.uuid defGroup) (Group.idx defGroup)
86 86 

  		





  87
  
  
    
-- | Simple checker for whether OpResult is fail or pass.


  		





  88
  
  
    
isFailure :: Types.OpResult a -> Bool


  		





  89
  
  
    
isFailure (Types.OpFail _) = True


  		





  90
  
  
    
isFailure _ = False


  		





  91
  
  
    

  		





  92
  87
  
    
-- | Create an instance given its spec.


  		





  93
  88
  
    
createInstance :: Int -> Int -> Int -> Instance.Instance


  		





  94
  89
  
    
createInstance mem dsk vcpus =


  		












Also available in:
  Unified diff