Stream 10 M response in test suite

mrkkrp · May 25, 2017 · 5f3ee9c · 5f3ee9c
1 parent b73039c
commit 5f3ee9c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/httpbin-tests/Network/HTTP/Req/ConduitSpec.hs b/httpbin-tests/Network/HTTP/Req/ConduitSpec.hs
@@ -38,14 +38,14 @@ spec = do
       void (req POST (httpbin /: "post")
         (ReqBodySource size src) ignoreResponse mempty) :: IO ()
 
-  describe "streaming 100 M response" $
+  describe "streaming 10 M response" $
     it "works" $ do
       let tempi :: (Handle -> IO ()) -> IO ()
           tempi f = withSystemTempFile "req-conduit" (const f)
       tempi $ \h ->
         runConduitRes $ do
           let size :: Int
-              size = 100 * 1024 * 1024
+              size = 10 * 1024 * 1024
           req' GET (httpbin /: "stream-bytes" /~ size) NoReqBody
             httpSource mempty =$= CB.sinkHandle h