From ff5c3f5a91e249694f3b76109027cf9d0c717a7c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 24 Aug 2023 21:55:06 +0200 Subject: Option to wait at the end of each test Changelog: Add --wait option to wait at the end of each test --- src/Run.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Run.hs') diff --git a/src/Run.hs b/src/Run.hs index 26cc34f..04fa9ee 100644 --- a/src/Run.hs +++ b/src/Run.hs @@ -83,7 +83,10 @@ runTest out opts test = do oldHandler <- installHandler processStatusChanged (CatchInfo sigHandler) Nothing res <- runExceptT $ flip runReaderT (tenv, tstate) $ fromTestRun $ do - withInternet $ \_ -> evalSteps (testSteps test) + withInternet $ \_ -> do + evalSteps (testSteps test) + when (optWait opts) $ do + void $ outPromptGetLine $ "Test '" <> testName test <> "' completed, waiting..." void $ installHandler processStatusChanged oldHandler Nothing -- cgit v1.2.3