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

b/test/hs/Test/Ganeti/Objects.hs
213 213
genEmptyCluster ncount = do
214 214
  nodes <- vector ncount
215 215
  version <- arbitrary
216
  let guuid = "00"
216
  grp <- arbitrary
217
  let guuid = groupUuid grp
217 218
      nodes' = zipWith (\n idx ->
218 219
                          let newname = nodeName n ++ "-" ++ show idx
219 220
                          in (newname, n { nodeGroup = guuid,
......
227 228
                    else GenericContainer nodemap
228 229
      continsts = GenericContainer Map.empty
229 230
      networks = GenericContainer Map.empty
230
  grp <- arbitrary
231 231
  let contgroups = GenericContainer $ Map.singleton guuid grp
232 232
  serial <- arbitrary
233 233
  cluster <- resize 8 arbitrary
......
400 400
  -- timestamp fields
401 401
  ctime <- arbitrary
402 402
  mtime <- arbitrary
403
  uuid <- arbitrary
403
  uuid <- genFQDN `suchThat` (/= name)
404 404
  serial <- arbitrary
405 405
  tags <- Set.fromList <$> genTags
406 406
  let group = NodeGroup name members ndparams alloc_policy ipolicy diskparams

Also available in: Unified diff