Common.hs

module Network.Bitcoin.BitX.Spec.Common
    (
    recordAesCheck
    ) where

import Test.Hspec
import Data.Aeson
import Network.Bitcoin.BitX (BitXAesRecordConvert(..))
import Data.ByteString.Lazy (ByteString)

recordAesCheck :: (BitXAesRecordConvert recd aes, Show recd, Eq recd) => ByteString -> recd -> Expectation
recordAesCheck aesTxt recd = fmap aesToRec (decode aesTxt) `shouldBe` Just recd