Revision 4651c69f test/hs/Test/Ganeti/OpCodes.hs
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 149 | 149 |
"OP_CLUSTER_QUERY" -> pure OpCodes.OpClusterQuery |
| 150 | 150 |
"OP_CLUSTER_VERIFY" -> |
| 151 | 151 |
OpCodes.OpClusterVerify <$> arbitrary <*> arbitrary <*> |
| 152 |
genSet Nothing <*> genSet Nothing <*> arbitrary <*>
|
|
| 152 |
genListSet Nothing <*> genListSet Nothing <*> arbitrary <*>
|
|
| 153 | 153 |
genMaybe genNameNE |
| 154 | 154 |
"OP_CLUSTER_VERIFY_CONFIG" -> |
| 155 | 155 |
OpCodes.OpClusterVerifyConfig <$> arbitrary <*> arbitrary <*> |
| 156 |
genSet Nothing <*> arbitrary |
|
| 156 |
genListSet Nothing <*> arbitrary
|
|
| 157 | 157 |
"OP_CLUSTER_VERIFY_GROUP" -> |
| 158 | 158 |
OpCodes.OpClusterVerifyGroup <$> genNameNE <*> arbitrary <*> |
| 159 |
arbitrary <*> genSet Nothing <*> genSet Nothing <*> arbitrary
|
|
| 159 |
arbitrary <*> genListSet Nothing <*> genListSet Nothing <*> arbitrary
|
|
| 160 | 160 |
"OP_CLUSTER_VERIFY_DISKS" -> pure OpCodes.OpClusterVerifyDisks |
| 161 | 161 |
"OP_GROUP_VERIFY_DISKS" -> |
| 162 | 162 |
OpCodes.OpGroupVerifyDisks <$> genNameNE |
Also available in: Unified diff