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