Add deflate compression to binary increment tests

well-typed · Jan 23, 2024 · e02861c · e02861c
1 parent 5141993
commit e02861c
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/test-grapesy/Test/Sanity/StreamingType/NonStreaming.hs b/test-grapesy/Test/Sanity/StreamingType/NonStreaming.hs
@@ -84,6 +84,11 @@ tests = testGroup "Test.Sanity.StreamingType.NonStreaming" [
                     clientCompr = Compr.require Compr.gzip
                   , serverCompr = Compr.require Compr.gzip
                   }
+            , testCaseInfo "deflate" $
+                test_increment def {
+                    clientCompr = Compr.require Compr.deflate
+                  , serverCompr = Compr.require Compr.deflate
+                  }
             , testCaseInfo "serverUnsupported" $
                 test_increment def {
                     clientCompr = Compr.require Compr.gzip
@@ -94,6 +99,11 @@ tests = testGroup "Test.Sanity.StreamingType.NonStreaming" [
                     clientCompr = Compr.none
                   , serverCompr = Compr.require Compr.gzip
                   }
+            , testCaseInfo "mismatch" $
+                test_increment def {
+                    clientCompr = Compr.require Compr.deflate
+                  , serverCompr = Compr.require Compr.gzip
+                  }
             ]
         ]
     ]