[wip] Add test to check compression ratio hence correct interpretatio…

…n of logs

local-cluster/test/Test/LogFilterSpec.hs

@@ -30,3 +30,10 @@ spec = parallel $ do
   it "replaces transactions by their ids in ReqSn" $ do
     (decode entry >>= filterLog >>= (^? key "message" . key "event" . key "message" . key "transactions"))
       `shouldBe` Just (Array [String "6cba5394ec8a1a1161758a33089661383143283d0121e4a293ed51a0272cfbc4"])
+
+  prop "significantly reduces standard log messages size" $ \ logs ->
+    let bytes = map encode logs
+        filtered = map (encode .filterLog) bytes
+    in      length filtered < length bytes
+      & cover 0.9 (filtered * 100  / bytes < 10) "reduces size by 90%"
+      & checkCoverage