Revision b54ecf12 test/hs/Test/Ganeti/Objects.hs

b/test/hs/Test/Ganeti/Objects.hs
93 93 
instance Arbitrary Disk where
94 94 
  arbitrary = Disk <$> arbitrary <*> pure [] <*> arbitrary
95 95 
                   <*> arbitrary <*> arbitrary <*> arbitrary
96 
                   <*> arbitrary
96 
                   <*> arbitrary <*> arbitrary
97 97 

  		





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


  		





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


  		





  ......




  179
  179
  
    
  size <- arbitrary


  		





  180
  180
  
    
  mode <- arbitrary


  		





  181
  181
  
    
  name <- genMaybe genName


  		





  
  182
  
    
  spindles <- arbitrary


  		





  182
  183
  
    
  uuid <- genName


  		





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


  		





  
  184
  
    
  let disk = Disk logicalid children ivname size mode name spindles uuid


  		





  184
  185
  
    
  return disk


  		





  185
  186
  
    

  		





  186
  187
  
    
genDisk :: Gen Disk


  		












Also available in:
  Unified diff