testNoCompression :: Test
testNoCompression = testProperty "gzip/noCompression" $
                    monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goGZip (seqSnap $ withCompression $
                             (noCompression >> textPlain s))
        assertEqual "" (Just "identity") $ getHeader "Content-Encoding" rsp
        body <- Test.getResponseBody rsp
        assertEqual "body matches" (S.concat $ L.toChunks s) body


------------------------------------------------------------------------------
testNoCompression :: Test
testNoCompression = testProperty "gzip/noCompression" $
                    monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goGZip (seqSnap $ withCompression $
                             (noCompression >> textPlain s))
        assertEqual "" (Just "identity") $ getHeader "Content-Encoding" rsp
        body <- Test.getResponseBody rsp
        assertEqual "body matches" (S.concat $ L.toChunks s) body


------------------------------------------------------------------------------
testNoCompression = testProperty "gzip/noCompression" $
                    monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goGZip (seqSnap $ withCompression $
                             (noCompression >> textPlain s))
        assertEqual "" (Just "identity") $ getHeader "Content-Encoding" rsp
        body <- Test.getResponseBody rsp
        assertEqual "body matches" (S.concat $ L.toChunks s) body


------------------------------------------------------------------------------