Revision da1dcce1 htest/Test/Ganeti/Objects.hs
b/htest/Test/Ganeti/Objects.hs | ||
---|---|---|
364 | 364 |
ipolicy <- arbitrary |
365 | 365 |
diskparams <- pure (GenericContainer Map.empty) |
366 | 366 |
num_networks <- choose (0, 3) |
367 |
networks <- vectorOf num_networks genValidNetwork |
|
367 |
net_uuid_list <- vectorOf num_networks (arbitrary::Gen String) |
|
368 |
nic_param_list <- vectorOf num_networks (arbitrary::Gen PartialNic) |
|
369 |
net_map <- pure (GenericContainer . Map.fromList $ |
|
370 |
zip net_uuid_list nic_param_list) |
|
368 | 371 |
-- timestamp fields |
369 | 372 |
ctime <- arbitrary |
370 | 373 |
mtime <- arbitrary |
... | ... | |
372 | 375 |
serial <- arbitrary |
373 | 376 |
tags <- Set.fromList <$> genTags |
374 | 377 |
let group = NodeGroup name members ndparams alloc_policy ipolicy diskparams |
375 |
networks ctime mtime uuid serial tags
|
|
378 |
net_map ctime mtime uuid serial tags
|
|
376 | 379 |
return group |
377 | 380 |
|
378 | 381 |
instance Arbitrary NodeGroup where |
Also available in: Unified diff