about summary refs log tree commit diff
path: root/users/glittershark/xanthous/test/Xanthous/Data/EntityCharSpec.hs
blob: 9e8024c9d223a2a77a912d23180d5fd260ef8446 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
--------------------------------------------------------------------------------
module Xanthous.Data.EntityCharSpec where
--------------------------------------------------------------------------------
import           Test.Prelude
--------------------------------------------------------------------------------
import qualified Data.Aeson as JSON
--------------------------------------------------------------------------------
import           Xanthous.Data.EntityChar
--------------------------------------------------------------------------------

main :: IO ()
main = defaultMain test

test :: TestTree
test = testGroup "Xanthous.Data.EntityChar"
  [ testProperty "JSON round-trip" $ \(ec :: EntityChar) ->
      JSON.decode (JSON.encode ec) === Just ec
  ]