Revision d9b681ea

b/test/hs/Test/Ganeti/Objects.hs
31 31 
  ( testObjects
32 32 
  , Node(..)
33 33 
  , genConfigDataWithNetworks
34 
  , genDisk
35 
  , genDiskWithChildren
34 36 
  , genEmptyCluster
35 37 
  , genInstWithNets
36 38 
  , genValidNetwork
......
140 142 
      new_inst = plain_inst { instNics = partial_nics }
141 143 
  return new_inst
142 144 

  		





  
  145
  
    
genDiskWithChildren :: Int -> Gen Disk


  		





  
  146
  
    
genDiskWithChildren num_children = do


  		





  
  147
  
    
  logicalid <- arbitrary


  		





  
  148
  
    
  children <- vectorOf num_children (genDiskWithChildren 0)


  		





  
  149
  
    
  ivname <- genName


  		





  
  150
  
    
  size <- arbitrary


  		





  
  151
  
    
  mode <- arbitrary


  		





  
  152
  
    
  name <- genMaybe genName


  		





  
  153
  
    
  uuid <- genName


  		





  
  154
  
    
  let disk = Disk logicalid children ivname size mode name uuid


  		





  
  155
  
    
  return disk


  		





  
  156
  
    

  		





  
  157
  
    
genDisk :: Gen Disk


  		





  
  158
  
    
genDisk = genDiskWithChildren 3


  		





  
  159
  
    

  		





  143
  160
  
    
-- | FIXME: This generates completely random data, without normal


  		





  144
  161
  
    
-- validation rules.


  		





  145
  162
  
    
$(genArbitrary ''PartialISpecParams)


  		












Also available in:
  Unified diff