haskell-ffprobe-0.1.0.0: test/Utils.hs

module Utils where

import Data.ByteString
import Test.Hspec.Expectations

getAssetContent :: String -> IO ByteString
getAssetContent fp = Data.ByteString.readFile $ "test/assets/" <> fp

shouldBeRight :: Either String a -> (a -> Expectation) -> Expectation
shouldBeRight (Left err) _ = expectationFailure err
shouldBeRight (Right value) f = f value