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