Revision aa7a5c90 test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
116 | 116 |
genMaybe genNodeNameNE <*> genMaybe genNameNE |
117 | 117 |
"OP_INSTANCE_FAILOVER" -> |
118 | 118 |
OpCodes.OpInstanceFailover <$> genFQDN <*> arbitrary <*> arbitrary <*> |
119 |
genMaybe genNodeNameNE <*> arbitrary <*> genMaybe genNameNE |
|
119 |
genMaybe genNodeNameNE <*> arbitrary <*> genMaybe genNameNE <*> |
|
120 |
arbitrary |
|
120 | 121 |
"OP_INSTANCE_MIGRATE" -> |
121 | 122 |
OpCodes.OpInstanceMigrate <$> genFQDN <*> arbitrary <*> arbitrary <*> |
122 | 123 |
genMaybe genNodeNameNE <*> arbitrary <*> |
Also available in: Unified diff