Revision 07e3c124 test/hs/Test/Ganeti/OpCodes.hs
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 171 | 171 |
"OP_CLUSTER_RENAME" -> |
| 172 | 172 |
OpCodes.OpClusterRename <$> genNameNE |
| 173 | 173 |
"OP_CLUSTER_SET_PARAMS" -> |
| 174 |
OpCodes.OpClusterSetParams <$> arbitrary <*> emptyMUD <*> emptyMUD <*> |
|
| 175 |
arbitrary <*> genMaybe arbitrary <*> |
|
| 176 |
genMaybe genEmptyContainer <*> emptyMUD <*> |
|
| 177 |
genMaybe genEmptyContainer <*> genMaybe genEmptyContainer <*> |
|
| 178 |
genMaybe genEmptyContainer <*> genMaybe arbitrary <*> |
|
| 179 |
genMaybe arbitrary <*> |
|
| 180 |
arbitrary <*> arbitrary <*> arbitrary <*> |
|
| 181 |
arbitrary <*> arbitrary <*> arbitrary <*> |
|
| 182 |
emptyMUD <*> emptyMUD <*> arbitrary <*> |
|
| 183 |
arbitrary <*> emptyMUD <*> arbitrary <*> arbitrary <*> arbitrary <*> |
|
| 184 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> |
|
| 185 |
arbitrary <*> genMaybe genName <*> genMaybe genName |
|
| 174 |
OpCodes.OpClusterSetParams |
|
| 175 |
<$> arbitrary -- force |
|
| 176 |
<*> emptyMUD -- hv_state |
|
| 177 |
<*> emptyMUD -- disk_state |
|
| 178 |
<*> arbitrary -- vg_name |
|
| 179 |
<*> genMaybe arbitrary -- enabled_hypervisors |
|
| 180 |
<*> genMaybe genEmptyContainer -- hvparams |
|
| 181 |
<*> emptyMUD -- beparams |
|
| 182 |
<*> genMaybe genEmptyContainer -- os_hvp |
|
| 183 |
<*> genMaybe genEmptyContainer -- osparams |
|
| 184 |
<*> genMaybe genEmptyContainer -- osparams_private_cluster |
|
| 185 |
<*> genMaybe genEmptyContainer -- diskparams |
|
| 186 |
<*> genMaybe arbitrary -- candidate_pool_size |
|
| 187 |
<*> genMaybe arbitrary -- max_running_jobs |
|
| 188 |
<*> arbitrary -- uid_pool |
|
| 189 |
<*> arbitrary -- add_uids |
|
| 190 |
<*> arbitrary -- remove_uids |
|
| 191 |
<*> arbitrary -- maintain_node_health |
|
| 192 |
<*> arbitrary -- prealloc_wipe_disks |
|
| 193 |
<*> arbitrary -- nicparams |
|
| 194 |
<*> emptyMUD -- ndparams |
|
| 195 |
<*> emptyMUD -- ipolicy |
|
| 196 |
<*> arbitrary -- drbd_helper |
|
| 197 |
<*> arbitrary -- default_iallocator |
|
| 198 |
<*> emptyMUD -- default_iallocator_params |
|
| 199 |
<*> arbitrary -- master_netdev |
|
| 200 |
<*> arbitrary -- master_netmask |
|
| 201 |
<*> arbitrary -- reserved_lvs |
|
| 202 |
<*> arbitrary -- hidden_os |
|
| 203 |
<*> arbitrary -- blacklisted_os |
|
| 204 |
<*> arbitrary -- use_external_mip_script |
|
| 205 |
<*> arbitrary -- enabled_disk_templates |
|
| 206 |
<*> arbitrary -- modify_etc_hosts |
|
| 207 |
<*> genMaybe genName -- file_storage_dir |
|
| 208 |
<*> genMaybe genName -- shared_file_storage_dir |
|
| 209 |
<*> genMaybe genName -- gluster_file_storage_dir |
|
| 186 | 210 |
"OP_CLUSTER_REDIST_CONF" -> pure OpCodes.OpClusterRedistConf |
| 187 | 211 |
"OP_CLUSTER_ACTIVATE_MASTER_IP" -> |
| 188 | 212 |
pure OpCodes.OpClusterActivateMasterIp |
Also available in: Unified diff