Revision f198cf91 test/hs/Test/Ganeti/OpCodes.hs
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 80 | 80 |
|
| 81 | 81 |
$(genArbitrary ''DiskAccess) |
| 82 | 82 |
|
| 83 |
$(genArbitrary ''ImportExportCompression) |
|
| 84 |
|
|
| 83 | 85 |
instance Arbitrary OpCodes.DiskIndex where |
| 84 | 86 |
arbitrary = choose (0, C.maxDisks - 1) >>= OpCodes.mkDiskIndex |
| 85 | 87 |
|
| ... | ... | |
| 265 | 267 |
"OP_INSTANCE_MOVE" -> |
| 266 | 268 |
OpCodes.OpInstanceMove <$> genFQDN <*> return Nothing <*> |
| 267 | 269 |
arbitrary <*> arbitrary <*> genNodeNameNE <*> return Nothing <*> |
| 268 |
arbitrary |
|
| 270 |
arbitrary <*> arbitrary
|
|
| 269 | 271 |
"OP_INSTANCE_CONSOLE" -> OpCodes.OpInstanceConsole <$> genFQDN <*> |
| 270 | 272 |
return Nothing |
| 271 | 273 |
"OP_INSTANCE_ACTIVATE_DISKS" -> |
Also available in: Unified diff