Revision 587832ed test/hs/Test/Ganeti/Objects.hs
| b/test/hs/Test/Ganeti/Objects.hs | ||
|---|---|---|
| 62 | 62 |
import Ganeti.Objects as Objects |
| 63 | 63 |
import Ganeti.JSON |
| 64 | 64 |
import Ganeti.Types |
| 65 |
import Ganeti.Utils (bitStringToB64String) |
|
| 65 | 66 |
|
| 66 | 67 |
-- * Arbitrary instances |
| 67 | 68 |
|
| ... | ... | |
| 243 | 244 |
genValidNetwork :: Gen Objects.Network |
| 244 | 245 |
genValidNetwork = do |
| 245 | 246 |
-- generate netmask for the IPv4 network |
| 246 |
netmask <- fromIntegral <$> choose (24::Int, 30)
|
|
| 247 |
netmask <- fromIntegral <$> choose (24::Int, 29)
|
|
| 247 | 248 |
name <- genName >>= mkNonEmpty |
| 248 | 249 |
mac_prefix <- genMaybe genName |
| 249 | 250 |
net <- arbitrary |
| 250 | 251 |
net6 <- genMaybe genIp6Net |
| 251 | 252 |
gateway <- genMaybe arbitrary |
| 252 | 253 |
gateway6 <- genMaybe genIp6Addr |
| 253 |
res <- liftM Just (genBitString $ netmask2NumHosts netmask) |
|
| 254 |
ext_res <- liftM Just (genBitString $ netmask2NumHosts netmask) |
|
| 254 |
res <- liftM (Just . bitStringToB64String) |
|
| 255 |
(genBitString $ netmask2NumHosts netmask) |
|
| 256 |
ext_res <- liftM (Just . bitStringToB64String) |
|
| 257 |
(genBitString $ netmask2NumHosts netmask) |
|
| 255 | 258 |
uuid <- arbitrary |
| 256 | 259 |
ctime <- arbitrary |
| 257 | 260 |
mtime <- arbitrary |
Also available in: Unified diff