Revision 22381768 htest/Test/Ganeti/Objects.hs

b/htest/Test/Ganeti/Objects.hs
28 28 

  		





  29
  29
  
    
module Test.Ganeti.Objects


  		





  30
  30
  
    
  ( testObjects


  		





  31
  
  
    
  , Hypervisor(..)


  		





  32
  31
  
    
  , Node(..)


  		





  33
  32
  
    
  , genEmptyCluster


  		





  34
  33
  
    
  ) where


  		





  ......




  51
  50
  
    

  		





  52
  51
  
    
-- * Arbitrary instances


  		





  53
  52
  
    

  		





  54
  
  
    
$(genArbitrary ''Hypervisor)


  		





  55
  
  
    

  		





  56
  53
  
    
$(genArbitrary ''PartialNDParams)


  		





  57
  54
  
    

  		





  58
  55
  
    
instance Arbitrary Node where


  		












Also available in:
  Unified diff