@@ -59,6 +59,7 @@ spec = do
5959 it "accept override" caseAcceptOverride
6060 it "debug request body" caseDebugRequestBody
6161 it "stream file" caseStreamFile
62+ it "stream LBS" caseStreamLBS
6263
6364toRequest :: S8.ByteString -> S8.ByteString -> SRequest
6465toRequest ctype content = SRequest defaultRequest
@@ -434,3 +435,14 @@ caseStreamFile = flip runSession streamFileApp $ do
434435 assertStatus 200 sres
435436 assertBodyContains "caseStreamFile" sres
436437 assertNoHeader "Transfer-Encoding" sres
438+
439+streamLBSApp :: Application
440+streamLBSApp = streamFile $ \_ f -> f $ responseLBS status200
441+ [("Content-Type", "text/plain")]
442+ "test"
443+
444+caseStreamLBS :: Assertion
445+caseStreamLBS = flip runSession streamLBSApp $ do
446+ sres <- request defaultRequest
447+ assertStatus 200 sres
448+ assertBody "test" sres