git.iko.soy/typeable/aeson
on master help sign in
Adding tests for the camlCase operation.
27c928eGabe McArthur
tests/Properties.hs+9
compare with master
unifiedsplit
@@ -23,6 +23,11 @@ import Data.Int
23import qualified Data.Map as Map
23import qualified Data.Map as Map
24#endif
24#endif
25
25
26+roundTripCaml :: String -> Bool
27+roundTripCaml s = s == (camlFrom '_' $ camlTo '_' s)
28+ where
29+ camlFrom :: Char -> String -> String
30+ camlFrom c = concatMap capitalize $ split c
26
31
27encodeDouble :: Double -> Double -> Bool
32encodeDouble :: Double -> Double -> Bool
28encodeDouble num denom
33encodeDouble num denom
@@ -102,6 +107,10 @@ tests = [
102 testProperty "encodeDouble" encodeDouble
107 testProperty "encodeDouble" encodeDouble
103 , testProperty "encodeInteger" encodeInteger
108 , testProperty "encodeInteger" encodeInteger
104 ],
109 ],
110+ testGroup "camlCase" [
111+ testProperty "camlTo" $ roundTripCaml "AnApiMethod"
112+ , testProperty "camlTo" $ roundTripCaml "anotherMethodType"
113+ ],
105 testGroup "roundTrip" [
114 testGroup "roundTrip" [
106 testProperty "Bool" $ roundTripEq True
115 testProperty "Bool" $ roundTripEq True
107 , testProperty "Double" $ roundTripEq (1 :: Approx Double)
116 , testProperty "Double" $ roundTripEq (1 :: Approx Double)