morley-0.4.0: test/Test/Util/HUnit.hs

-- | Helpers for HUnit.

module Test.Util.HUnit
  ( assertEqualBuild
  ) where

import Test.HUnit (Assertion, assertEqual)
import Test.Util.QuickCheck (ShowThroughBuild(..))

assertEqualBuild
  :: (HasCallStack, Eq a, Show (ShowThroughBuild a))
  => String -> a -> a -> Assertion
assertEqualBuild desc a b =
  assertEqual desc (STB a) (STB b)