Revision 8d66f58a htools/Ganeti/HTools/QC.hs
b/htools/Ganeti/HTools/QC.hs | ||
---|---|---|
227 | 227 |
"OP_INSTANCE_FAILOVER" -> |
228 | 228 |
liftM2 OpCodes.OpFailoverInstance arbitrary arbitrary |
229 | 229 |
"OP_INSTANCE_MIGRATE" -> |
230 |
liftM3 OpCodes.OpMigrateInstance arbitrary arbitrary arbitrary |
|
230 |
liftM4 OpCodes.OpMigrateInstance arbitrary arbitrary arbitrary |
|
231 |
arbitrary |
|
231 | 232 |
_ -> fail "Wrong opcode") |
232 | 233 |
|
233 | 234 |
instance Arbitrary Jobs.OpStatus where |
Also available in: Unified diff