JSONSpec.hs

module Freckle.App.Test.Properties.JSONSpec
  ( spec
  ) where

import Freckle.App.Prelude

import Data.Aeson
import Freckle.App.Test.Properties.JSON
import Test.Hspec
import Test.QuickCheck

data MyCustomType
  = A
  | B (Maybe String)
  deriving stock (Eq, Generic, Show)
  deriving anyclass (FromJSON, ToJSON)

instance Arbitrary MyCustomType where
  arbitrary = oneof [pure A, B <$> arbitrary]

spec :: Spec
spec = do
  describe "prop_roundTripJSON" $ do
    it "round trips for Integer" $ property $ prop_roundTripJSON @Integer
    it "round trips for Bool" $ property $ prop_roundTripJSON @Bool
    it "round trips for some custom type"
      $ property
      $ prop_roundTripJSON @MyCustomType