diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-17 08:50:07 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-17 10:25:05 +0200 |
| commit | 4ac26772681d74be2cbbf9376a02ebc395257c86 (patch) | |
| tree | 16a140c9c245fbe1204c147ee6a6705dcb60601e /src | |
| parent | c7930f132d1fff4fba0f8fbee6aa0edb38c40269 (diff) | |
Initial test scripts and configuration
Diffstat (limited to 'src')
| -rw-r--r-- | src/Command/Run.hs | 1 | ||||
| -rw-r--r-- | src/Output.hs | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index 6190236..09a814e 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -326,6 +326,7 @@ cmdRun (RunCommand RunOptions {..} args) = do loop [] =<< atomically (takeJobSource source) waitForJobs waitForJobs + outputEvent output $ TestMessage "run-finish" fitToLength :: Int -> Text -> Text diff --git a/src/Output.hs b/src/Output.hs index b4678f5..2dbaa3f 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -40,6 +40,7 @@ data OutputType data OutputEvent = OutputMessage Text + | TestMessage Text | JobStarted JobId | JobFinished JobId Text @@ -93,6 +94,9 @@ outputEvent out@Output {..} = liftIO . \case forM_ outLogs $ \h -> outStrLn out h msg forM_ outTest $ \h -> outStrLn out h ("msg " <> msg) + TestMessage msg -> do + forM_ outTest $ \h -> outStrLn out h msg + JobStarted jid -> do forM_ outLogs $ \h -> outStrLn out h ("Started " <> textJobId jid) forM_ outTest $ \h -> outStrLn out h ("job-start " <> textJobId jid) |