Revision df8578fb htest/Test/Ganeti/OpCodes.hs
b/htest/Test/Ganeti/OpCodes.hs | ||
---|---|---|
360 | 360 |
genDiskIndices :: Gen [DiskIndex] |
361 | 361 |
genDiskIndices = do |
362 | 362 |
cnt <- choose (0, C.maxDisks) |
363 |
genUniquesList cnt |
|
363 |
genUniquesList cnt arbitrary
|
|
364 | 364 |
|
365 | 365 |
-- | Generates a list of node names. |
366 | 366 |
genNodeNames :: Gen [String] |
Also available in: Unified diff