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

b/test/hs/Test/Ganeti/Objects.hs
193 193 
genEmptyCluster ncount = do
194 194 
  nodes <- vector ncount
195 195 
  version <- arbitrary
196 
  let guuid = "00"
196 
  grp <- arbitrary
197 
  let guuid = groupUuid grp
197 198 
      nodes' = zipWith (\n idx ->
198 199 
                          let newname = nodeName n ++ "-" ++ show idx
199 200 
                          in (newname, n { nodeGroup = guuid,
......
206 207 
                                show (map fst nodes'))
207 208 
                    else GenericContainer nodemap
208 209 
      continsts = GenericContainer Map.empty
209 
  grp <- arbitrary
210 210 
  let contgroups = GenericContainer $ Map.singleton guuid grp
211 211 
  serial <- arbitrary
212 212 
  cluster <- resize 8 arbitrary
......
360 360 
  -- timestamp fields
361 361 
  ctime <- arbitrary
362 362 
  mtime <- arbitrary
363 
  uuid <- arbitrary
363 
  uuid <- genFQDN `suchThat` (/= name)
364 364 
  serial <- arbitrary
365 365 
  tags <- Set.fromList <$> genTags
366 366 
  let group = NodeGroup name members ndparams alloc_policy ipolicy diskparams

Also available in: Unified diff