Revision c3a8e06d htest/Test/Ganeti/Objects.hs
b/htest/Test/Ganeti/Objects.hs | ||
---|---|---|
187 | 187 |
grp <- arbitrary |
188 | 188 |
let contgroups = Container $ Map.singleton guuid grp |
189 | 189 |
serial <- arbitrary |
190 |
cluster <- arbitrary |
|
190 |
cluster <- resize 8 arbitrary
|
|
191 | 191 |
let c = ConfigData version cluster contnodes contgroups continsts serial |
192 | 192 |
return c |
193 | 193 |
|
... | ... | |
227 | 227 |
-- | Check config serialisation. |
228 | 228 |
prop_Config_serialisation :: Property |
229 | 229 |
prop_Config_serialisation = |
230 |
forAll (choose (0, maxNodes) >>= genEmptyCluster) testSerialisation |
|
230 |
forAll (choose (0, maxNodes `div` 4) >>= genEmptyCluster) testSerialisation
|
|
231 | 231 |
|
232 | 232 |
testSuite "Objects" |
233 | 233 |
[ 'prop_fillDict |
Also available in: Unified diff