Option to wait at the end of each test

Changelog: Add --wait option to wait at the end of each test

1 files changed, 4 insertions, 1 deletions

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