Revision 516a0e94 test/hs/Test/Ganeti/OpCodes.hs
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 342 | 342 |
genNameNE |
| 343 | 343 |
_ -> fail $ "Undefined arbitrary for opcode " ++ op_id |
| 344 | 344 |
|
| 345 |
-- | Generates one element of a reason trail |
|
| 346 |
genReasonElem :: Gen ReasonElem |
|
| 347 |
genReasonElem = (,,) <$> genFQDN <*> genFQDN <*> arbitrary |
|
| 348 |
|
|
| 349 |
-- | Generates a reason trail |
|
| 350 |
genReasonTrail :: Gen ReasonTrail |
|
| 351 |
genReasonTrail = do |
|
| 352 |
size <- choose (0, 10) |
|
| 353 |
vectorOf size genReasonElem |
|
| 354 |
|
|
| 345 | 355 |
instance Arbitrary OpCodes.CommonOpParams where |
| 346 | 356 |
arbitrary = OpCodes.CommonOpParams <$> arbitrary <*> arbitrary <*> |
| 347 |
arbitrary <*> resize 5 arbitrary <*> genMaybe genName |
|
| 357 |
arbitrary <*> resize 5 arbitrary <*> genMaybe genName <*> |
|
| 358 |
genReasonTrail |
|
| 348 | 359 |
|
| 349 | 360 |
-- * Helper functions |
| 350 | 361 |
|
Also available in: Unified diff