Revision 5e9deac0 htest/Test/Ganeti/Objects.hs

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

  		





  42
  42
  
    
import Test.Ganeti.TestHelper


  		





  43
  43
  
    
import Test.Ganeti.TestCommon


  		





  
  44
  
    
import Test.Ganeti.Types ()


  		





  44
  45
  
    

  		





  45
  46
  
    
import qualified Ganeti.Constants as C


  		





  46
  47
  
    
import Ganeti.Objects as Objects


  		





  ......




  87
  88
  
    
-- hard for partial ones, where all must be wrapped in a 'Maybe'


  		





  88
  89
  
    
$(genArbitrary ''PartialBeParams)


  		





  89
  90
  
    

  		





  90
  
  
    
$(genArbitrary ''DiskTemplate)


  		





  91
  
  
    

  		





  92
  91
  
    
$(genArbitrary ''AdminState)


  		





  93
  92
  
    

  		





  94
  93
  
    
$(genArbitrary ''NICMode)


  		





  ......




  138
  137
  
    
                        -- tags


  		





  139
  138
  
    
                        <*> (Set.fromList <$> genTags)


  		





  140
  139
  
    

  		





  141
  
  
    
$(genArbitrary ''AllocPolicy)


  		





  142
  140
  
    
$(genArbitrary ''FilledISpecParams)


  		





  143
  141
  
    
$(genArbitrary ''FilledIPolicy)


  		





  144
  142
  
    
$(genArbitrary ''IpFamily)


  		












Also available in:
  Unified diff