eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Disable flawed streams in constant memory test

Browse source
This commit is contained in:
Oleg Grenrus 2018-07-05 00:27:57 +03:00
parent 1114925048
commit f536c90fa5
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-client/test/Servant/StreamSpec.hs
View file

@ -135,6 +135,7 @@ streamSpec = beforeAll (CS.startWaiApp server) $ afterAll CS.endWaiApp $ do
jrb = Just (Right bob) jrb = Just (Right bob)
testRunResultStream res `shouldReturn` (jra, jrb, jra, Nothing) testRunResultStream res `shouldReturn` (jra, jrb, jra, Nothing)
{-
it "streams in constant memory" $ \(_, baseUrl) -> do it "streams in constant memory" $ \(_, baseUrl) -> do
Right (ResultStream res) <- runClient getGetALot baseUrl Right (ResultStream res) <- runClient getGetALot baseUrl
let consumeNChunks n = replicateM_ n (res void) let consumeNChunks n = replicateM_ n (res void)
@ -145,6 +146,7 @@ streamSpec = beforeAll (CS.startWaiApp server) $ afterAll CS.endWaiApp $ do
memUsed <- currentBytesUsed <$> getGCStats memUsed <- currentBytesUsed <$> getGCStats
#endif #endif
memUsed `shouldSatisfy` (< megabytes 22) memUsed `shouldSatisfy` (< megabytes 22)
-}
megabytes :: Num a => a -> a megabytes :: Num a => a -> a
megabytes n = n * (1000 ^ (2 :: Int)) megabytes n = n * (1000 ^ (2 :: Int))