refactor(core): Use kv based context to avoid allocations (#4986)

* refactor(core): Use kv based context to avoid allocations Signed-off-by: Xuanwo <[email protected]> * Remove logger test Signed-off-by: Xuanwo <[email protected]> --------- Signed-off-by: Xuanwo <[email protected]>
apache · Aug 9, 2024 · dac28d1 · dac28d1
1 parent c5cc990
commit dac28d1
Show file tree

Hide file tree

Showing 4 changed files with 676 additions and 442 deletions.
diff --git a/bindings/haskell/test/BasicTest.hs b/bindings/haskell/test/BasicTest.hs
@@ -31,8 +31,7 @@ basicTests =
     "Basic Tests"
     [ testCase "testBasicOperation" testRawOperation,
       testCase "testMonad" testMonad,
-      testCase "testError" testError,
-      testCase "testLogger" testLogger
+      testCase "testError" testError
     ]
 
 testRawOperation :: Assertion
@@ -102,15 +101,6 @@ testError = do
   where
     operation = readOp "non-exist-path"
 
-testLogger :: Assertion
-testLogger = do
-  state <- newIORef ""
-  let logger initStr msg = modifyIORef' initStr (<> msgText msg)
-  let logFn = LogAction $ logger state
-  Right _ <- newOperator "memory" {ocLogAction = Just logFn}
-  logStr <- readIORef state
-  T.take 78 logStr @?= "service=memory operation=metadata  -> startedservice=memory operation=metadata"
-
 -- helper function
 
 (?=) :: (MonadIO m, Eq a, Show a) => m a -> a -> m ()