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

b/test/hs/Test/Ganeti/Objects.hs
298 298 
      networks = GenericContainer Map.empty
299 299 
  let contgroups = GenericContainer $ Map.singleton guuid grp
300 300 
  serial <- arbitrary
301 
  -- timestamp fields
302 
  ctime <- arbitrary
303 
  mtime <- arbitrary
301 304 
  cluster <- resize 8 arbitrary
302 305 
  let c = ConfigData version cluster contnodes contgroups continsts networks
303 
            serial
306 
            ctime mtime serial
304 307 
  return c
305 308 

  		





  306
  309
  
    
-- | FIXME: make an even simpler base version of creating a cluster.


  		












Also available in:
  Unified diff