@@ -432,4 +432,5 @@ caseStreamFile :: Assertion
432caseStreamFile = flip runSession streamFileApp $ do
432caseStreamFile = flip runSession streamFileApp $ do
433 sres <- request defaultRequest
433 sres <- request defaultRequest
434 assertStatus 200 sres
434 assertStatus 200 sres
435+ assertBodyContains "caseStreamFile" sres
435 assertNoHeader "Transfer-Encoding" sres
436 assertNoHeader "Transfer-Encoding" sres