Revision 4e4433e8 test/hs/Test/Ganeti/OpCodes.hs
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 76 | 76 |
|
| 77 | 77 |
instance Arbitrary INicParams where |
| 78 | 78 |
arbitrary = INicParams <$> genMaybe genNameNE <*> genMaybe genName <*> |
| 79 |
genMaybe genNameNE <*> genMaybe genNameNE |
|
| 79 |
genMaybe genNameNE <*> genMaybe genNameNE <*> genMaybe genNameNE
|
|
| 80 | 80 |
|
| 81 | 81 |
instance Arbitrary IDiskParams where |
| 82 | 82 |
arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*> |
| 83 | 83 |
genMaybe genNameNE <*> genMaybe genNameNE <*> |
| 84 |
genMaybe genNameNE |
|
| 84 |
genMaybe genNameNE <*> genMaybe genNameNE
|
|
| 85 | 85 |
|
| 86 | 86 |
instance Arbitrary RecreateDisksInfo where |
| 87 | 87 |
arbitrary = oneof [ pure RecreateDisksAll |
Also available in: Unified diff