Revision da4a52a3 test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
111 | 111 |
OpCodes.OpTestDelay <$> arbitrary <*> arbitrary <*> |
112 | 112 |
genNodeNamesNE <*> return Nothing <*> arbitrary |
113 | 113 |
"OP_INSTANCE_REPLACE_DISKS" -> |
114 |
OpCodes.OpInstanceReplaceDisks <$> genFQDN <*> arbitrary <*>
|
|
115 |
arbitrary <*> arbitrary <*> genDiskIndices <*> |
|
114 |
OpCodes.OpInstanceReplaceDisks <$> genFQDN <*> return Nothing <*>
|
|
115 |
arbitrary <*> arbitrary <*> arbitrary <*> genDiskIndices <*>
|
|
116 | 116 |
genMaybe genNodeNameNE <*> return Nothing <*> genMaybe genNameNE |
117 | 117 |
"OP_INSTANCE_FAILOVER" -> |
118 |
OpCodes.OpInstanceFailover <$> genFQDN <*> arbitrary <*> arbitrary <*>
|
|
119 |
genMaybe genNodeNameNE <*> return Nothing <*> arbitrary <*>
|
|
120 |
genMaybe genNameNE |
|
118 |
OpCodes.OpInstanceFailover <$> genFQDN <*> return Nothing <*>
|
|
119 |
arbitrary <*> arbitrary <*> genMaybe genNodeNameNE <*>
|
|
120 |
return Nothing <*> arbitrary <*> genMaybe genNameNE
|
|
121 | 121 |
"OP_INSTANCE_MIGRATE" -> |
122 |
OpCodes.OpInstanceMigrate <$> genFQDN <*> arbitrary <*> arbitrary <*> |
|
123 |
genMaybe genNodeNameNE <*> return Nothing <*> arbitrary <*> |
|
124 |
arbitrary <*> arbitrary <*> genMaybe genNameNE <*> arbitrary |
|
122 |
OpCodes.OpInstanceMigrate <$> genFQDN <*> return Nothing <*> |
|
123 |
arbitrary <*> arbitrary <*> genMaybe genNodeNameNE <*> |
|
124 |
return Nothing <*> arbitrary <*> arbitrary <*> arbitrary <*> |
|
125 |
genMaybe genNameNE <*> arbitrary |
|
125 | 126 |
"OP_TAGS_GET" -> |
126 | 127 |
OpCodes.OpTagsGet <$> arbitrary <*> arbitrary |
127 | 128 |
"OP_TAGS_SEARCH" -> |
... | ... | |
229 | 230 |
OpCodes.OpInstanceMultiAlloc <$> genMaybe genNameNE <*> pure [] <*> |
230 | 231 |
arbitrary |
231 | 232 |
"OP_INSTANCE_REINSTALL" -> |
232 |
OpCodes.OpInstanceReinstall <$> genFQDN <*> arbitrary <*>
|
|
233 |
genMaybe genNameNE <*> genMaybe (pure emptyJSObject) |
|
233 |
OpCodes.OpInstanceReinstall <$> genFQDN <*> return Nothing <*>
|
|
234 |
arbitrary <*> genMaybe genNameNE <*> genMaybe (pure emptyJSObject)
|
|
234 | 235 |
"OP_INSTANCE_REMOVE" -> |
235 |
OpCodes.OpInstanceRemove <$> genFQDN <*> arbitrary <*> arbitrary |
|
236 |
"OP_INSTANCE_RENAME" -> |
|
237 |
OpCodes.OpInstanceRename <$> genFQDN <*> genNodeNameNE <*> |
|
236 |
OpCodes.OpInstanceRemove <$> genFQDN <*> return Nothing <*> |
|
238 | 237 |
arbitrary <*> arbitrary |
238 |
"OP_INSTANCE_RENAME" -> |
|
239 |
OpCodes.OpInstanceRename <$> genFQDN <*> return Nothing <*> |
|
240 |
genNodeNameNE <*> arbitrary <*> arbitrary |
|
239 | 241 |
"OP_INSTANCE_STARTUP" -> |
240 |
OpCodes.OpInstanceStartup <$> genFQDN <*> arbitrary <*> arbitrary <*>
|
|
241 |
pure emptyJSObject <*> pure emptyJSObject <*>
|
|
242 |
arbitrary <*> arbitrary |
|
242 |
OpCodes.OpInstanceStartup <$> genFQDN <*> return Nothing <*>
|
|
243 |
arbitrary <*> arbitrary <*> pure emptyJSObject <*>
|
|
244 |
pure emptyJSObject <*> arbitrary <*> arbitrary
|
|
243 | 245 |
"OP_INSTANCE_SHUTDOWN" -> |
244 |
OpCodes.OpInstanceShutdown <$> genFQDN <*> arbitrary <*> arbitrary <*>
|
|
245 |
arbitrary <*> arbitrary |
|
246 |
OpCodes.OpInstanceShutdown <$> genFQDN <*> return Nothing <*>
|
|
247 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
|
|
246 | 248 |
"OP_INSTANCE_REBOOT" -> |
247 |
OpCodes.OpInstanceReboot <$> genFQDN <*> arbitrary <*>
|
|
248 |
arbitrary <*> arbitrary |
|
249 |
OpCodes.OpInstanceReboot <$> genFQDN <*> return Nothing <*>
|
|
250 |
arbitrary <*> arbitrary <*> arbitrary
|
|
249 | 251 |
"OP_INSTANCE_MOVE" -> |
250 |
OpCodes.OpInstanceMove <$> genFQDN <*> arbitrary <*> arbitrary <*> |
|
251 |
genNodeNameNE <*> return Nothing <*> arbitrary |
|
252 |
"OP_INSTANCE_CONSOLE" -> OpCodes.OpInstanceConsole <$> genFQDN |
|
252 |
OpCodes.OpInstanceMove <$> genFQDN <*> return Nothing <*> |
|
253 |
arbitrary <*> arbitrary <*> genNodeNameNE <*> return Nothing <*> |
|
254 |
arbitrary |
|
255 |
"OP_INSTANCE_CONSOLE" -> OpCodes.OpInstanceConsole <$> genFQDN <*> |
|
256 |
return Nothing |
|
253 | 257 |
"OP_INSTANCE_ACTIVATE_DISKS" -> |
254 |
OpCodes.OpInstanceActivateDisks <$> genFQDN <*> |
|
258 |
OpCodes.OpInstanceActivateDisks <$> genFQDN <*> return Nothing <*>
|
|
255 | 259 |
arbitrary <*> arbitrary |
256 | 260 |
"OP_INSTANCE_DEACTIVATE_DISKS" -> |
257 |
OpCodes.OpInstanceDeactivateDisks <$> genFQDN <*> arbitrary |
|
261 |
OpCodes.OpInstanceDeactivateDisks <$> genFQDN <*> return Nothing <*> |
|
262 |
arbitrary |
|
258 | 263 |
"OP_INSTANCE_RECREATE_DISKS" -> |
259 |
OpCodes.OpInstanceRecreateDisks <$> genFQDN <*> arbitrary <*> |
|
260 |
genNodeNamesNE <*> return Nothing <*> genMaybe genNameNE |
|
264 |
OpCodes.OpInstanceRecreateDisks <$> genFQDN <*> return Nothing <*> |
|
265 |
arbitrary <*> genNodeNamesNE <*> return Nothing <*> |
|
266 |
genMaybe genNameNE |
|
261 | 267 |
"OP_INSTANCE_QUERY" -> |
262 | 268 |
OpCodes.OpInstanceQuery <$> genFieldsNE <*> genNamesNE <*> arbitrary |
263 | 269 |
"OP_INSTANCE_QUERY_DATA" -> |
264 | 270 |
OpCodes.OpInstanceQueryData <$> arbitrary <*> |
265 | 271 |
genNodeNamesNE <*> arbitrary |
266 | 272 |
"OP_INSTANCE_SET_PARAMS" -> |
267 |
OpCodes.OpInstanceSetParams <$> genFQDN <*> arbitrary <*>
|
|
273 |
OpCodes.OpInstanceSetParams <$> genFQDN <*> return Nothing <*>
|
|
268 | 274 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> |
269 |
pure emptyJSObject <*> arbitrary <*> pure emptyJSObject <*>
|
|
270 |
arbitrary <*> genMaybe genNodeNameNE <*> return Nothing <*>
|
|
271 |
genMaybe genNodeNameNE <*> return Nothing <*> |
|
275 |
arbitrary <*> pure emptyJSObject <*> arbitrary <*>
|
|
276 |
pure emptyJSObject <*> arbitrary <*> genMaybe genNodeNameNE <*>
|
|
277 |
return Nothing <*> genMaybe genNodeNameNE <*> return Nothing <*>
|
|
272 | 278 |
genMaybe genNameNE <*> pure emptyJSObject <*> arbitrary <*> |
273 | 279 |
arbitrary <*> arbitrary |
274 | 280 |
"OP_INSTANCE_GROW_DISK" -> |
275 |
OpCodes.OpInstanceGrowDisk <$> genFQDN <*> arbitrary <*>
|
|
276 |
arbitrary <*> arbitrary <*> arbitrary |
|
281 |
OpCodes.OpInstanceGrowDisk <$> genFQDN <*> return Nothing <*>
|
|
282 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
|
|
277 | 283 |
"OP_INSTANCE_CHANGE_GROUP" -> |
278 |
OpCodes.OpInstanceChangeGroup <$> genFQDN <*> arbitrary <*> |
|
279 |
genMaybe genNameNE <*> genMaybe (resize maxNodes (listOf genNameNE)) |
|
284 |
OpCodes.OpInstanceChangeGroup <$> genFQDN <*> return Nothing <*> |
|
285 |
arbitrary <*> genMaybe genNameNE <*> |
|
286 |
genMaybe (resize maxNodes (listOf genNameNE)) |
|
280 | 287 |
"OP_GROUP_ADD" -> |
281 | 288 |
OpCodes.OpGroupAdd <$> genNameNE <*> arbitrary <*> |
282 | 289 |
emptyMUD <*> genMaybe genEmptyContainer <*> |
... | ... | |
304 | 311 |
"OP_BACKUP_QUERY" -> |
305 | 312 |
OpCodes.OpBackupQuery <$> arbitrary <*> genNodeNamesNE |
306 | 313 |
"OP_BACKUP_PREPARE" -> |
307 |
OpCodes.OpBackupPrepare <$> genFQDN <*> arbitrary |
|
314 |
OpCodes.OpBackupPrepare <$> genFQDN <*> return Nothing <*> arbitrary
|
|
308 | 315 |
"OP_BACKUP_EXPORT" -> |
309 |
OpCodes.OpBackupExport <$> genFQDN <*> arbitrary <*>
|
|
310 |
arbitrary <*> return Nothing <*> arbitrary <*> arbitrary <*>
|
|
311 |
arbitrary <*> arbitrary <*> genMaybe (pure []) <*> |
|
316 |
OpCodes.OpBackupExport <$> genFQDN <*> return Nothing <*>
|
|
317 |
arbitrary <*> arbitrary <*> return Nothing <*> arbitrary <*>
|
|
318 |
arbitrary <*> arbitrary <*> arbitrary <*> genMaybe (pure []) <*>
|
|
312 | 319 |
genMaybe genNameNE |
313 | 320 |
"OP_BACKUP_REMOVE" -> |
314 |
OpCodes.OpBackupRemove <$> genFQDN |
|
321 |
OpCodes.OpBackupRemove <$> genFQDN <*> return Nothing
|
|
315 | 322 |
"OP_TEST_ALLOCATOR" -> |
316 | 323 |
OpCodes.OpTestAllocator <$> arbitrary <*> arbitrary <*> |
317 | 324 |
genNameNE <*> pure [] <*> pure [] <*> |
Also available in: Unified diff