about summary refs log blame commit diff
path: root/users/glittershark/xanthous/test/Xanthous/Data/EntityCharSpec.hs
blob: 9e8024c9d223a2a77a912d23180d5fd260ef8446 (plain) (tree)
1
2
3
4
5
6
7
8
                                                                                
                                         




                                                                                
                                         





                                                                                


                                                           
   
--------------------------------------------------------------------------------
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
  ]