@@ -168,6 +168,10 @@ errorRetrySpec = describe "Handler search"
168168 request methodGet "a" [jsonCT, jsonAccept] jsonBody
169169 `shouldRespondWith` 200 { matchBody = Just $ encode (4 :: Int) }
170170
171+ it "should not continue when body cannot be decoded" $ do
172+ request methodPost "a" [jsonCT, jsonAccept] "a string"
173+ `shouldRespondWith` 400
174+
171175-- }}}
172176------------------------------------------------------------------------------
173177-- * Error Choice {{{