Revision e5c92cfb test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
152 | 152 |
"OP_CLUSTER_RENAME" -> |
153 | 153 |
OpCodes.OpClusterRename <$> genNameNE |
154 | 154 |
"OP_CLUSTER_SET_PARAMS" -> |
155 |
OpCodes.OpClusterSetParams <$> emptyMUD <*> emptyMUD <*> |
|
155 |
OpCodes.OpClusterSetParams <$> arbitrary <*> emptyMUD <*> emptyMUD <*>
|
|
156 | 156 |
arbitrary <*> genMaybe (listOf1 arbitrary >>= mkNonEmpty) <*> |
157 | 157 |
genMaybe genEmptyContainer <*> emptyMUD <*> |
158 | 158 |
genMaybe genEmptyContainer <*> genMaybe genEmptyContainer <*> |
Also available in: Unified diff