module Test.Hspec.Wai.JSON (
json
, FromValue(..)
) where
import Data.ByteString.Lazy (ByteString)
import Data.Aeson (Value, decode, encode)
import Data.Aeson.QQ
import Language.Haskell.TH.Quote
import Test.Hspec.Wai
import Test.Hspec.Wai.Matcher
json :: QuasiQuoter
json = QuasiQuoter {
quoteExp = \input -> [|fromValue $(quoteExp aesonQQ input)|]
, quotePat = const $ error "No quotePat defined for Test.Hspec.Wai.JSON.json"
, quoteType = const $ error "No quoteType defined for Test.Hspec.Wai.JSON.json"
, quoteDec = const $ error "No quoteDec defined for Test.Hspec.Wai.JSON.json"
}
class FromValue a where
fromValue :: Value -> a
instance FromValue ResponseMatcher where
fromValue = ResponseMatcher 200 ["Content-Type" <:> "application/json"] . equalsJSON
equalsJSON :: Value -> MatchBody
equalsJSON expected = MatchBody matcher
where
matcher headers actualBody = case decode actualBody of
Just actual | actual == expected -> Nothing
_ -> let MatchBody m = bodyEquals (encode expected) in m headers actualBody
instance FromValue ByteString where
fromValue = encode