From e56577e4506c7db72aef9e273cfa00592ca20829 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 17 Oct 2026 15:51:31 +0200
Subject: Do not look for config file in parent dirs in test mode

---
 src/Run.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Run.hs')

diff --git a/src/Run.hs b/src/Run.hs
index a1184c4..53a0275 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -124,7 +124,7 @@ runTest out opts gdefs test = do
     objIdVar <- newMVar 1
     procIdVar <- newMVar 1
     procVar <- newMVar []
-    timeoutVar <- newMVar ( optTimeout opts, 0 )
+    timeoutVar <- newMVar ( fromMaybe 1 $ optTimeout opts, 0 )
 
     let evalTool = \case
             ToolPath path -> return path
@@ -139,7 +139,9 @@ runTest out opts gdefs test = do
                             ioError $ userError $ "failed to find ‘" <> T.unpack name <> "’ executable path using cabal"
                 | otherwise
                 -> return $ T.unpack arg
-    defaultTool <- evalTool $ optDefaultTool opts
+    defaultTool <- case optDefaultTool opts of
+        Just tool -> evalTool tool
+        Nothing -> ioError $ userError "No test tool defined"
     procTools <- mapM (sequence . fmap evalTool) $ optProcTools opts
 
     mgdb <- if optGDB opts
-- 
cgit v1.2.3