Revision 6879dfd2 test/hs/Test/Ganeti/JSON.hs
| b/test/hs/Test/Ganeti/JSON.hs | ||
|---|---|---|
| 41 | 41 |
import qualified Ganeti.BasicTypes as BasicTypes |
| 42 | 42 |
import qualified Ganeti.JSON as JSON |
| 43 | 43 |
|
| 44 |
instance (Arbitrary a) => Arbitrary (JSON.MaybeForJSON a) where |
|
| 45 |
arbitrary = liftM JSON.MaybeForJSON arbitrary |
|
| 46 |
|
|
| 44 | 47 |
instance Arbitrary JSON.TimeAsDoubleJSON where |
| 45 | 48 |
arbitrary = liftM JSON.TimeAsDoubleJSON arbitrary |
| 46 | 49 |
|
| ... | ... | |
| 81 | 84 |
, Data.List.isInfixOf k e ==? True |
| 82 | 85 |
] |
| 83 | 86 |
|
| 87 |
prop_MaybeForJSON_serialisation :: JSON.MaybeForJSON String -> Property |
|
| 88 |
prop_MaybeForJSON_serialisation = testSerialisation |
|
| 89 |
|
|
| 84 | 90 |
prop_TimeAsDoubleJSON_serialisation :: JSON.TimeAsDoubleJSON -> Property |
| 85 | 91 |
prop_TimeAsDoubleJSON_serialisation = testSerialisation |
| 86 | 92 |
|
| ... | ... | |
| 89 | 95 |
, 'prop_toArrayFail |
| 90 | 96 |
, 'prop_arrayMaybeFromObj |
| 91 | 97 |
, 'prop_arrayMaybeFromObjFail |
| 98 |
, 'prop_MaybeForJSON_serialisation |
|
| 92 | 99 |
, 'prop_TimeAsDoubleJSON_serialisation |
| 93 | 100 |
] |
Also available in: Unified diff