Revision 51d7ac96 test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
241 | 241 |
genMaybe genNodeNameNE <*> return Nothing <*> genMaybe (pure []) <*> |
242 | 242 |
genMaybe genNodeNameNE <*> arbitrary <*> genMaybe genNodeNameNE <*> |
243 | 243 |
return Nothing <*> genMaybe genNodeNameNE <*> genMaybe genNameNE <*> |
244 |
arbitrary <*> (genTags >>= mapM mkNonEmpty) |
|
244 |
arbitrary <*> arbitrary <*> (genTags >>= mapM mkNonEmpty)
|
|
245 | 245 |
"OP_INSTANCE_MULTI_ALLOC" -> |
246 | 246 |
OpCodes.OpInstanceMultiAlloc <$> arbitrary <*> genMaybe genNameNE <*> |
247 | 247 |
pure [] |
Also available in: Unified diff