Revision a30a6178 htest/Test/Ganeti/Objects.hs
b/htest/Test/Ganeti/Objects.hs | ||
---|---|---|
171 | 171 |
name <- genName >>= mkNonEmpty |
172 | 172 |
network_type <- genMaybe genNetworkType |
173 | 173 |
mac_prefix <- genMaybe genName |
174 |
fam <- arbitrary
|
|
174 |
net_family <- arbitrary
|
|
175 | 175 |
net <- genIp4NetWithNetmask netmask |
176 | 176 |
net6 <- genMaybe genIp6Net |
177 | 177 |
gateway <- genMaybe genIp4AddrStr |
... | ... | |
179 | 179 |
size <- genMaybe genJSValue |
180 | 180 |
res <- liftM Just (genBitString $ netmask2NumHosts netmask) |
181 | 181 |
ext_res <- liftM Just (genBitString $ netmask2NumHosts netmask) |
182 |
let n = Network name network_type mac_prefix fam net net6 gateway
|
|
182 |
let n = Network name network_type mac_prefix net_family net net6 gateway
|
|
183 | 183 |
gateway6 size res ext_res 0 Set.empty |
184 | 184 |
return n |
185 | 185 |
|
Also available in: Unified diff