avro-0.6.2.1: test/Avro/ReuseFixedSpec.hs

{-# LANGUAGE OverloadedStrings   #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Avro.ReuseFixedSpec
where

import Avro.Data.FixedTypes
import Data.Avro.Deriving

import Avro.TestUtils (roundtrip)
import Test.Hspec

{- HLINT ignore "Redundant do"        -}

spec :: Spec
spec = describe "Avro.ReuseFixedSpec" $ do
  it "should roundtrip fixed type" $
    let msg = ReuseFixed (FixedData "ABCDEFGHIJKLMNOP") (FixedData "PONMLKJIHGFEDCBA")
    in roundtrip schema'ReuseFixed msg `shouldBe` pure msg