testIdentity5 :: Test
testIdentity5 = testProperty "gzip/identity5" $ monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goXDeflate (seqSnap $ withCompression $ textPlain s)

        assertEqual "" (Just "x-deflate") $ getHeader "Content-Encoding" rsp
        body <- Test.getResponseBody rsp
        let s2 = Zlib.decompress $ L.fromChunks [body]
        assertEqual "gzip" s s2


------------------------------------------------------------------------------
testIdentity5 :: Test
testIdentity5 = testProperty "gzip/identity5" $ monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goXDeflate (seqSnap $ withCompression $ textPlain s)

        assertEqual "" (Just "x-deflate") $ getHeader "Content-Encoding" rsp
        body <- Test.getResponseBody rsp
        let s2 = Zlib.decompress $ L.fromChunks [body]
        assertEqual "gzip" s s2


------------------------------------------------------------------------------
testIdentity5 = testProperty "gzip/identity5" $ monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goXDeflate (seqSnap $ withCompression $ textPlain s)

        assertEqual "" (Just "x-deflate") $ getHeader "Content-Encoding" rsp
        body <- Test.getResponseBody rsp
        let s2 = Zlib.decompress $ L.fromChunks [body]
        assertEqual "gzip" s s2


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