Revision d067f40b test/hs/Test/Ganeti/Types.hs
| b/test/hs/Test/Ganeti/Types.hs | ||
|---|---|---|
| 115 | 115 |
instance Arbitrary StorageType where |
| 116 | 116 |
arbitrary = elements allStorageTypes |
| 117 | 117 |
|
| 118 |
$(genArbitrary ''NodeEvacMode)
|
|
| 118 |
$(genArbitrary ''EvacMode) |
|
| 119 | 119 |
|
| 120 | 120 |
$(genArbitrary ''FileDriver) |
| 121 | 121 |
|
| ... | ... | |
| 269 | 269 |
prop_StorageType_serialisation = testSerialisation |
| 270 | 270 |
|
| 271 | 271 |
-- | Test 'NodeEvacMode' serialisation. |
| 272 |
prop_NodeEvacMode_serialisation :: NodeEvacMode -> Property
|
|
| 272 |
prop_NodeEvacMode_serialisation :: EvacMode -> Property |
|
| 273 | 273 |
prop_NodeEvacMode_serialisation = testSerialisation |
| 274 | 274 |
|
| 275 | 275 |
-- | Test 'FileDriver' serialisation. |
Also available in: Unified diff