1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Data.Aeson.Casing.Test (tests) where
import Data.Aeson
import GHC.Generics
import Test.Tasty
import Test.Tasty.HUnit
import Test.Tasty.TH
import Data.Aeson.Casing.Internal
tests :: TestTree
tests = $(testGroupGenerator)
case_snake :: Assertion
case_snake = do snakeCase "SampleField" @=? "sample_field"
snakeCase "sampleField" @=? "sample_field"
case_camel :: Assertion
case_camel = do camelCase "SampleField" @=? "sampleField"
camelCase "sampleField" @=? "sampleField"
case_pascal :: Assertion
case_pascal = do pascalCase "SampleField" @=? "SampleField"
pascalCase "sampleField" @=? "SampleField"
case_train :: Assertion
case_train = do trainCase "SampleField" @=? "sample-field"
trainCase "sampleField" @=? "sample-field"
case_prefix :: Assertion
case_prefix = dropFPrefix "extraSampleField" @=? "SampleField"
----
data Person = Person
{ personFirstName :: String
, personLastName :: String
} deriving (Eq, Show, Generic)
data Animal = Animal
{ animalFirstName :: String
, animalBreedName :: String
} deriving (Eq, Show, Generic)
instance ToJSON Person where
toJSON = genericToJSON $ aesonPrefix snakeCase
instance FromJSON Person where
parseJSON = genericParseJSON $ aesonPrefix snakeCase
instance ToJSON Animal where
toJSON = genericToJSON $ aesonPrefix trainCase
instance FromJSON Animal where
parseJSON = genericParseJSON $ aesonPrefix trainCase
johnDoe = Person "John" "Doe"
johnDoeJSON = "{\"first_name\":\"John\",\"last_name\":\"Doe\"}"
persianEgypt = Animal "Toffee" "Persian Cat"
persianEgyptJSON = "{\"breed-name\":\"Persian Cat\",\"first-name\":\"Toffee\"}"
case_encode_snake :: Assertion
case_encode_snake = do
let b = encode johnDoe
b @=? johnDoeJSON
case_decode_snake :: Assertion
case_decode_snake = do
let p = decode johnDoeJSON :: Maybe Person
p @=? Just johnDoe
case_encode_train :: Assertion
case_encode_train = do
let b = encode persianEgypt
b @=? persianEgyptJSON
case_decode_train :: Assertion
case_decode_train = do
let p = decode persianEgyptJSON :: Maybe Animal
p @=? Just persianEgypt
|
