Revision 3c1a8730 test/hs/Test/Ganeti/Objects.hs

b/test/hs/Test/Ganeti/Objects.hs
89 89 
-- generating recursive datastructures is a bit more work.
90 90 
instance Arbitrary Disk where
91 91 
  arbitrary = Disk <$> arbitrary <*> pure [] <*> arbitrary
92 
                   <*> arbitrary <*> arbitrary
92 
                   <*> arbitrary <*> arbitrary <*> arbitrary
93 
                   <*> arbitrary
93 94 

  		





  94
  95
  
    
-- FIXME: we should generate proper values, >=0, etc., but this is


  		





  95
  96
  
    
-- hard for partial ones, where all must be wrapped in a 'Maybe'


  		





  ......




  128
  129
  
    
  mac <- arbitrary


  		





  129
  130
  
    
  ip <- arbitrary


  		





  130
  131
  
    
  nicparams <- arbitrary


  		





  
  132
  
    
  name <- arbitrary


  		





  
  133
  
    
  uuid <- arbitrary


  		





  131
  134
  
    
  -- generate some more networks than the given ones


  		





  132
  135
  
    
  num_more_nets <- choose (0,3)


  		





  133
  136
  
    
  more_nets <- vectorOf num_more_nets genName


  		





  134
  
  
    
  let partial_nics = map (PartialNic mac ip nicparams . Just)


  		





  135
  
  
    
                       (List.nub (nets ++ more_nets))


  		





  
  137
  
    
  let genNic net = PartialNic mac ip nicparams net name uuid


  		





  
  138
  
    
      partial_nics = map (genNic . Just)


  		





  
  139
  
    
                         (List.nub (nets ++ more_nets))


  		





  136
  140
  
    
      new_inst = plain_inst { instNics = partial_nics }


  		





  137
  141
  
    
  return new_inst


  		





  138
  142
  
    

  		












Also available in:
  Unified diff