Revision 2f3a3365 test/hs/Test/Ganeti/Objects.hs
| b/test/hs/Test/Ganeti/Objects.hs | ||
|---|---|---|
| 365 | 365 |
diskparams <- pure (GenericContainer Map.empty) |
| 366 | 366 |
num_networks <- choose (0, 3) |
| 367 | 367 |
net_uuid_list <- vectorOf num_networks (arbitrary::Gen String) |
| 368 |
nic_param_list <- vectorOf num_networks (arbitrary::Gen PartialNic) |
|
| 368 |
nic_param_list <- vectorOf num_networks (arbitrary::Gen PartialNicParams)
|
|
| 369 | 369 |
net_map <- pure (GenericContainer . Map.fromList $ |
| 370 | 370 |
zip net_uuid_list nic_param_list) |
| 371 | 371 |
-- timestamp fields |
Also available in: Unified diff