task: complete t-rWcqsDZFM.1 (Merge)

Amp-Thread-ID:
https://ampcode.com/threads/T-ca3b086b-5a85-422a-b13d-256784c04221
Co-authored-by: Amp <amp@ampcode.com>

1 files changed, 0 insertions, 74 deletions

diff --git a/Omni/Agent/LogTest.hs b/Omni/Agent/LogTest.hs
deleted file mode 100644
index 97b558d..0000000
--- a/Omni/Agent/LogTest.hs
+++ /dev/null
@@ -1,74 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-
--- : out agent-log-test
-module Omni.Agent.LogTest where
-
-import Alpha
-import Omni.Agent.Log
-import qualified Omni.Test as Test
-
-main :: IO ()
-main = Test.run tests
-
-tests :: Test.Tree
-tests =
-  Test.group
-    "Omni.Agent.Log"
-    [ Test.unit "Parse LogEntry" testParse,
-      Test.unit "Format LogEntry" testFormat
-    ]
-
-testParse :: IO ()
-testParse = do
-  let json = "{\"message\": \"executing 1 tools in 1 batch(es)\", \"batches\": [[\"grep\"]]}"
-  let expected =
-        LogEntry
-          { leMessage = Just "executing 1 tools in 1 batch(es)",
-            leLevel = Nothing,
-            leToolName = Nothing,
-            leBatches = Just [["grep"]],
-            leMethod = Nothing,
-            lePath = Nothing
-          }
-  parseLine json @?= Just expected
-
-testFormat :: IO ()
-testFormat = do
-  let entry =
-        LogEntry
-          { leMessage = Just "executing 1 tools in 1 batch(es)",
-            leLevel = Nothing,
-            leToolName = Nothing,
-            leBatches = Just [["grep"]],
-            leMethod = Nothing,
-            lePath = Nothing
-          }
-  -- Expect NO emoji
-  formatLogEntry entry @?= Just "THOUGHT: Planning tool execution (grep)"
-
-  let entry2 =
-        LogEntry
-          { leMessage = Just "some random log",
-            leLevel = Nothing,
-            leToolName = Nothing,
-            leBatches = Nothing,
-            leMethod = Nothing,
-            lePath = Nothing
-          }
-  formatLogEntry entry2 @?= Nothing
-
-  let entry3 =
-        LogEntry
-          { leMessage = Just "some error",
-            leLevel = Just "error",
-            leToolName = Nothing,
-            leBatches = Nothing,
-            leMethod = Nothing,
-            lePath = Nothing
-          }
-  -- Expect NO emoji
-  formatLogEntry entry3 @?= Just "ERROR: some error"
-
-(@?=) :: (Eq a, Show a) => a -> a -> IO ()
-(@?=) = (Test.@?=)