Fix wai-extra tests
commit8e58a42ebeaea39f2845068e1d4a0583ccd0d179
authorMichael Snoyman <michael@snoyman.com>
dateFri 14 Oct 2011, 12:13 (15 years ago)
parent00dea5c
wai-extra/runtests.hs+3−1
@@ -255,7 +255,9 @@ caseJsonp = flip runSession jsonpApp $ do
255255 assertBody "{\"foo\":\"bar\"}" sres3
256256
257257gzipApp :: Application
258−gzipApp = gzip True $ const $ return $ responseLBS status200 [] "test"
258+gzipApp = gzip True $ const $ return $ responseLBS status200
259+ [("Content-Type", "text/plain")]
260+ "test"
259261
260262caseGzip :: Assertion
261263caseGzip = flip runSession gzipApp $ do
wai-extra/wai-extra.cabal+2
@@ -73,6 +73,8 @@ test-suite runtests
7373 , zlib-bindings
7474 , blaze-builder-enumerator
7575 , blaze-builder
76+ , zlib-enum
77+ , data-default
7678
7779source-repository head
7880 type: git