msgpack-testsuite-0.0.15: test/Test/MessagePack/SpecSpec.hs

{-# LANGUAGE StrictData  #-}
{-# LANGUAGE Trustworthy #-}
module Test.MessagePack.SpecSpec where

import           Test.Hspec

import           Test.MessagePack.Spec

spec :: Spec
spec = do
    describe "TyConArgs" $
        it "has a working Eq instance" $ do
            TyConArgs 1 2 3 `shouldBe` TyConArgs 1 2 3
            TyConArgs 1 2 3 `shouldNotBe` TyConArgs 3 2 1