Revision ce003543 htest/Test/Ganeti/Rpc.hs

b/htest/Test/Ganeti/Rpc.hs
32 32 
import Test.QuickCheck.Monadic (monadicIO, run, stop)
33 33 

  		





  34
  34
  
    
import Control.Applicative


  		





  
  35
  
    
import qualified Data.Map as Map


  		





  35
  36
  
    

  		





  36
  37
  
    
import Test.Ganeti.TestHelper


  		





  37
  38
  
    
import Test.Ganeti.TestCommon


  		





  ......




  47
  48
  
    
  arbitrary = Rpc.RpcCallInstanceList <$> arbitrary


  		





  48
  49
  
    

  		





  49
  50
  
    
instance Arbitrary Rpc.RpcCallNodeInfo where


  		





  50
  
  
    
  arbitrary = Rpc.RpcCallNodeInfo <$> arbitrary <*> arbitrary


  		





  
  51
  
    
  arbitrary = Rpc.RpcCallNodeInfo <$> arbitrary <*> arbitrary <*>


  		





  
  52
  
    
                pure Map.empty


  		





  51
  53
  
    

  		





  52
  54
  
    
-- | Monadic check that, for an offline node and a call that does not


  		





  53
  55
  
    
-- offline nodes, we get a OfflineNodeError response.


  		












Also available in:
  Unified diff