genvalidity-hspec-cereal-1.0.0.0: test/Test/Validity/CerealSpec.hs

{-# LANGUAGE TypeApplications #-}

module Test.Validity.CerealSpec where

import Data.GenValidity
import Test.Hspec
import Test.Validity.Cereal

spec :: Spec
spec = do
  serializeSpecOnGen (genListOf $ pure 'a') "sequence of 'a's" (const [])
  -- serializeSpec @Double DOES NOT HOLD
  serializeSpec @Rational
  serializeSpec @Int
  serializeSpecOnArbitrary @Int