[cli] feat: add anti agent collect-all-results command

Author: paolino

cli/docs/antithesis-agent-role.md

@@ -94,7 +94,7 @@ export ANTI_AGENT_EMAIL="<your-email>"
 Then you can check for the completion of a test-run via
 
 ```bash
-anti agent collect-email-results --days <n> --ask-agent-email-password
+anti agent collect-results-for --test-run-id <test-run-id> --days <n> --ask-agent-email-password
 ```
 
 > HAL Team

cli/src/User/Agent/Cli.hs

@@ -47,6 +47,7 @@ import Core.Types.Tx (WithTxHash (..))
 import Core.Types.Wallet (Wallet (..))
 import Data.ByteString.Base64 qualified as Base64
 import Data.ByteString.Char8 qualified as B8
+import Data.Either (rights)
 import Data.Function ((&))
 import Data.Functor (($>), (<&>))
 import Data.Functor.Identity (Identity (..))
@@ -239,6 +240,15 @@ agentCmd = \case
             Left err -> notValidated $ CheckResultsEmail err
             Right Nothing -> notValidated $ CheckResultsNoEmailsFor key
             Right (Just result) -> pure result
+    CheckAllResults emailUser emailPassword days -> runValidate $ do
+        r <-
+            liftIO
+                $ runExceptT
+                $ readEmails emailUser emailPassword days
+                & S.toList_
+        case r of
+            Left err -> notValidated $ CheckResultsEmail err
+            Right results -> pure $ rights results
 
 data IsReady = NotReady | Ready
     deriving (Show, Eq)
@@ -357,6 +367,12 @@ data AgentCommand (phase :: IsReady) result where
         -> Int
         -- ^ limit to last N days
         -> AgentCommand phase (AValidationResult CheckResultsFailure Result)
+    CheckAllResults
+        :: EmailUser
+        -> EmailPassword
+        -> Int
+        -- ^ limit to last N days
+        -> AgentCommand phase (AValidationResult CheckResultsFailure [Result])
     PushTest
         :: TokenId
         -> Registry

cli/src/User/Agent/Options.hs

@@ -89,8 +89,44 @@ agentCommandParser =
             $ Box <$> downloadAssetsOptions
         , command "push-test" "Push a test run to Antithesis"
             $ Box <$> pushTestOptions
-        , command "collect-email-results" "Collect test results from email"
+        , command "collect-results-for" "Collect test results from email"
             $ Box <$> emailResultsOptions
+        , command "collect-all-results" "Collect all test results from email"
+            $ Box <$> emailAllResultsOptions
+        ]
+
+agentEmailOption :: Parser EmailUser
+agentEmailOption =
+    EmailUser
+        <$> setting
+            [ env "ANTI_AGENT_EMAIL"
+            , metavar "EMAIL"
+            , help "The agent email to access the results mailbox"
+            , reader str
+            , long "email-user"
+            , option
+            ]
+agentEmailPasswordOption :: Parser EmailPassword
+agentEmailPasswordOption =
+    EmailPassword
+        <$> secretsParser
+            "Enter the agent email password to access the mailbox"
+            "The agent email password to access the mailbox"
+            "ANTI_AGENT_EMAIL_PASSWORD"
+            "EMAIL_PASSWORD"
+            "ask-agent-email-password"
+            "agentEmailPassword"
+
+daysOption :: Parser Int
+daysOption =
+    setting
+        [ long "days"
+        , help
+            "Number of days in the past to check for test results (default: 7)"
+        , metavar "DAYS"
+        , reader auto
+        , value 7
+        , option
         ]
 
 emailResultsOptions
@@ -99,35 +135,19 @@ emailResultsOptions
 emailResultsOptions =
     CheckResultFor
         <$> tokenIdOption
-        <*> ( EmailUser
-                <$> setting
-                    [ env "ANTI_AGENT_EMAIL"
-                    , metavar "EMAIL"
-                    , help "The agent email to access the results mailbox"
-                    , reader str
-                    , long "email-user"
-                    , option
-                    ]
-            )
-        <*> ( EmailPassword
-                <$> secretsParser
-                    "Enter the agent email password to access the mailbox"
-                    "The agent email password to access the mailbox"
-                    "ANTI_AGENT_EMAIL_PASSWORD"
-                    "EMAIL_PASSWORD"
-                    "ask-agent-email-password"
-                    "agentEmailPassword"
-            )
+        <*> agentEmailOption
+        <*> agentEmailPasswordOption
         <*> testRunIdOption "check results for"
-        <*> setting
-            [ long "days"
-            , help
-                "Number of days in the past to check for test results (default: 7)"
-            , metavar "DAYS"
-            , reader auto
-            , value 7
-            , option
-            ]
+        <*> daysOption
+
+emailAllResultsOptions
+    :: Parser
+        (AgentCommand NotReady (AValidationResult CheckResultsFailure [Result]))
+emailAllResultsOptions =
+    CheckAllResults
+        <$> agentEmailOption
+        <*> agentEmailPasswordOption
+        <*> daysOption
 
 pushTestOptions
     :: Parser