Revision 6a28e02c htest/Test/Ganeti/Types.hs
| b/htest/Test/Ganeti/Types.hs | ||
|---|---|---|
| 72 | 72 |
|
| 73 | 73 |
$(genArbitrary ''Hypervisor) |
| 74 | 74 |
|
| 75 |
$(genArbitrary ''OobCommand) |
|
| 76 |
|
|
| 75 | 77 |
$(genArbitrary ''StorageType) |
| 76 | 78 |
|
| 79 |
$(genArbitrary ''NodeEvacMode) |
|
| 80 |
|
|
| 77 | 81 |
instance (Arbitrary a) => Arbitrary (Types.NonEmpty a) where |
| 78 | 82 |
arbitrary = do |
| 79 | 83 |
QuickCheck.NonEmpty lst <- arbitrary |
| ... | ... | |
| 160 | 164 |
prop_Hypervisor_serialisation :: Hypervisor -> Property |
| 161 | 165 |
prop_Hypervisor_serialisation = testSerialisation |
| 162 | 166 |
|
| 167 |
-- | Test 'OobCommand' serialisation. |
|
| 168 |
prop_OobCommand_serialisation :: OobCommand -> Property |
|
| 169 |
prop_OobCommand_serialisation = testSerialisation |
|
| 170 |
|
|
| 163 | 171 |
-- | Test 'StorageType' serialisation. |
| 164 | 172 |
prop_StorageType_serialisation :: StorageType -> Property |
| 165 | 173 |
prop_StorageType_serialisation = testSerialisation |
| 166 | 174 |
|
| 175 |
-- | Test 'NodeEvacMode' serialisation. |
|
| 176 |
prop_NodeEvacMode_serialisation :: NodeEvacMode -> Property |
|
| 177 |
prop_NodeEvacMode_serialisation = testSerialisation |
|
| 178 |
|
|
| 167 | 179 |
testSuite "Types" |
| 168 | 180 |
[ 'prop_AllocPolicy_serialisation |
| 169 | 181 |
, 'prop_DiskTemplate_serialisation |
| ... | ... | |
| 180 | 192 |
, 'prop_CVErrorCode_serialisation |
| 181 | 193 |
, 'case_CVErrorCode_pyequiv |
| 182 | 194 |
, 'prop_Hypervisor_serialisation |
| 195 |
, 'prop_OobCommand_serialisation |
|
| 183 | 196 |
, 'prop_StorageType_serialisation |
| 197 |
, 'prop_NodeEvacMode_serialisation |
|
| 184 | 198 |
] |
Also available in: Unified diff