add a testcase to very that we reject invalid json bodies with HTTP status 400

src/Servant/Server.hs

@@ -36,7 +36,7 @@ toApplication ra request respond = do
 data RouteMismatch =
     NotFound    -- ^ the usual "not found" error
   | WrongMethod -- ^ a more informative "you just got the HTTP method wrong" error
-  | InvalidBody -- ^ an even more informative "you json request body wasn't valid" error
+  | InvalidBody -- ^ an even more informative "your json request body wasn't valid" error
   deriving (Eq, Show)
 
 -- | 

test/Servant/ServerSpec.hs

@@ -154,6 +154,9 @@ postSpec = do
           matchStatus = 201
          }
 
+      it "correctly rejects invalid request bodies with status 400" $ do
+        post "/" "some invalid body" `shouldRespondWith` 400
+
 
 type RawApi = "foo" :> Raw
 rawApi :: Proxy RawApi