testIdentity3 :: Test
testIdentity3 = testProperty "gzip/identity3" $ monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goGZip (seqSnap $ withCompression $ binary s)
        body <- Test.getResponseBody rsp
        assertEqual "identify" s $ L.fromChunks [body]


------------------------------------------------------------------------------
testIdentity3 :: Test
testIdentity3 = testProperty "gzip/identity3" $ monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goGZip (seqSnap $ withCompression $ binary s)
        body <- Test.getResponseBody rsp
        assertEqual "identify" s $ L.fromChunks [body]


------------------------------------------------------------------------------
testIdentity3 = testProperty "gzip/identity3" $ monadicIO $ forAllM arbitrary prop
  where
    prop :: L.ByteString -> PropertyM IO ()
    prop s = liftQ $ do
        (!_,!rsp) <- goGZip (seqSnap $ withCompression $ binary s)
        body <- Test.getResponseBody rsp
        assertEqual "identify" s $ L.fromChunks [body]


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