Revision 1a182390 test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
285 | 285 |
OpCodes.OpInstanceQueryData <$> arbitrary <*> |
286 | 286 |
genNodeNamesNE <*> arbitrary |
287 | 287 |
"OP_INSTANCE_SET_PARAMS" -> |
288 |
OpCodes.OpInstanceSetParams <$> genFQDN <*> return Nothing <*> |
|
289 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> |
|
290 |
arbitrary <*> pure emptyJSObject <*> arbitrary <*> |
|
291 |
pure emptyJSObject <*> arbitrary <*> genMaybe genNodeNameNE <*> |
|
292 |
return Nothing <*> genMaybe genNodeNameNE <*> return Nothing <*> |
|
293 |
genMaybe genNameNE <*> pure emptyJSObject <*> arbitrary <*> |
|
294 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary |
|
288 |
OpCodes.OpInstanceSetParams |
|
289 |
<$> genFQDN -- instance_name |
|
290 |
<*> return Nothing -- instance_uuid |
|
291 |
<*> arbitrary -- force |
|
292 |
<*> arbitrary -- force_variant |
|
293 |
<*> arbitrary -- ignore_ipolicy |
|
294 |
<*> arbitrary -- nics |
|
295 |
<*> arbitrary -- disks |
|
296 |
<*> pure emptyJSObject -- beparams |
|
297 |
<*> arbitrary -- runtime_mem |
|
298 |
<*> pure emptyJSObject -- hvparams |
|
299 |
<*> arbitrary -- disk_template |
|
300 |
<*> genMaybe genNodeNameNE -- pnode |
|
301 |
<*> return Nothing -- pnode_uuid |
|
302 |
<*> genMaybe genNodeNameNE -- remote_node |
|
303 |
<*> return Nothing -- remote_node_uuid |
|
304 |
<*> genMaybe genNameNE -- os_name |
|
305 |
<*> pure emptyJSObject -- osparams |
|
306 |
<*> genMaybe arbitraryPrivateJSObj -- osparams_private |
|
307 |
<*> arbitrary -- wait_for_sync |
|
308 |
<*> arbitrary -- offline |
|
309 |
<*> arbitrary -- conflicts_check |
|
310 |
<*> arbitrary -- hotplug |
|
311 |
<*> arbitrary -- hotplug_if_possible |
|
295 | 312 |
"OP_INSTANCE_GROW_DISK" -> |
296 | 313 |
OpCodes.OpInstanceGrowDisk <$> genFQDN <*> return Nothing <*> |
297 | 314 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary |
Also available in: Unified diff