avro-0.5.2.1: test/Avro/ToAvroSpec.hs

module Avro.ToAvroSpec
( spec
)
where

import Avro.Data.Endpoint
import Avro.Data.Unions

import Avro.TestUtils              (roundtripGen)
import HaskellWorks.Hspec.Hedgehog
import Hedgehog
import Test.Hspec

{- HLINT ignore "Redundant do"        -}

spec :: Spec
spec = describe "Avro.ToAvroSpec" $ do
  describe "Should encode directly and decode via new value" $ do
    it "Unions" $ require $ property $ roundtripGen schema'Unions unionsGen
    it "Endpoint" $ require $ property $ roundtripGen schema'Endpoint endpointGen