git.iko.soy/typeable/aeson
on master help sign in
Added tests/Options.hs
commitc595a42f9d69e9ca9b60ddb03d892c9b282c6701 authorBas van Dijk <v.dijk.bas@gmail.com> dateSun 7 Apr 2013, 18:30 (14 years ago) parentd367d58
2 files changed+28−4
compare with master
unifiedsplit
tests/Options.hs+24 tests/Properties.hs+4−4
tests/Options.hsnew file+24
@@ -0,0 +1,24 @@
1+module Options where
2+
3+import Data.Aeson.Types
4+import Data.Char
5+
6+optsDefault :: Options
7+optsDefault = defaultOptions{ fieldNameModifier = map toLower
8+ , constructorNameModifier = map toLower
9+ }
10+
11+opts2ElemArray :: Options
12+opts2ElemArray = optsDefault{ nullaryToString = False }
13+
14+optsObjectWithType :: Options
15+optsObjectWithType = optsDefault
16+ { nullaryToString = False
17+ , sumEncoding = defaultObjectWithType
18+ }
19+
20+optsObjectWithSingleField :: Options
21+optsObjectWithSingleField = optsDefault
22+ { nullaryToString = False
23+ , sumEncoding = ObjectWithSingleField
24+ }
tests/Properties.hs+4−4
@@ -125,10 +125,10 @@ instance Arbitrary Nullary where
125125 arbitrary = elements [C1, C2, C3]
126126
127127thNullaryToJSONString :: Nullary -> Value
128−thNullaryToJSONString = $(mkToJSON defaultOptions ''Nullary)
128+thNullaryToJSONString = $(mkToJSON optsDefault ''Nullary)
129129
130130thNullaryParseJSONString :: Value -> Parser Nullary
131−thNullaryParseJSONString = $(mkParseJSON defaultOptions ''Nullary)
131+thNullaryParseJSONString = $(mkParseJSON optsDefault ''Nullary)
132132
133133
134134thNullaryToJSON2ElemArray :: Nullary -> Value
@@ -155,10 +155,10 @@ thNullaryParseJSONObjectWithSingleField = $(mkParseJSON optsObjectWithSingleFiel
155155deriving instance Generic Nullary
156156
157157gNullaryToJSONString :: Nullary -> Value
158−gNullaryToJSONString = gToJSON defaultOptions . from
158+gNullaryToJSONString = gToJSON optsDefault . from
159159
160160gNullaryParseJSONString :: Value -> Parser Nullary
161−gNullaryParseJSONString = fmap to . gParseJSON defaultOptions
161+gNullaryParseJSONString = fmap to . gParseJSON optsDefault
162162
163163
164164gNullaryToJSON2ElemArray :: Nullary -> Value