summaryrefslogtreecommitdiff
path: root/src/Run.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Run.hs')
-rw-r--r--src/Run.hs5
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