Revision b43064d0 test/hs/Test/Ganeti/Objects.hs
| b/test/hs/Test/Ganeti/Objects.hs | ||
|---|---|---|
| 179 | 179 |
size <- genMaybe genJSValue |
| 180 | 180 |
res <- liftM Just (genBitString $ netmask2NumHosts netmask) |
| 181 | 181 |
ext_res <- liftM Just (genBitString $ netmask2NumHosts netmask) |
| 182 |
uuid <- arbitrary |
|
| 182 | 183 |
let n = Network name network_type mac_prefix net_family net net6 gateway |
| 183 |
gateway6 size res ext_res 0 Set.empty |
|
| 184 |
gateway6 size res ext_res uuid 0 Set.empty
|
|
| 184 | 185 |
return n |
| 185 | 186 |
|
| 186 | 187 |
-- | Generates an arbitrary network type. |
| ... | ... | |
| 215 | 216 |
show (map fst nodes')) |
| 216 | 217 |
else GenericContainer nodemap |
| 217 | 218 |
continsts = GenericContainer Map.empty |
| 219 |
networks = GenericContainer Map.empty |
|
| 218 | 220 |
grp <- arbitrary |
| 219 | 221 |
let contgroups = GenericContainer $ Map.singleton guuid grp |
| 220 | 222 |
serial <- arbitrary |
| 221 | 223 |
cluster <- resize 8 arbitrary |
| 222 |
let c = ConfigData version cluster contnodes contgroups continsts serial |
|
| 224 |
let c = ConfigData version cluster contnodes contgroups continsts networks |
|
| 225 |
serial |
|
| 223 | 226 |
return c |
| 224 | 227 |
|
| 225 | 228 |
-- * Test properties |
Also available in: Unified diff