From 89ed9a3a6c0ada2b1c252a5e24283b84eb0fa4c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 15 Sep 2025 21:10:39 +0200
Subject: =?UTF-8?q?Add=20timeout=20argument=20for=20the=20=E2=80=98expect?=
 =?UTF-8?q?=E2=80=99=20command?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Changelog: Added `timeout` argument for the `expect` command
---
 src/Parser/Statement.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Parser/Statement.hs')

diff --git a/src/Parser/Statement.hs b/src/Parser/Statement.hs
index 474fa03..571a38e 100644
--- a/src/Parser/Statement.hs
+++ b/src/Parser/Statement.hs
@@ -434,6 +434,7 @@ testExpect = command "expect" $ Expect
     <$> cmdLine
     <*> (fromExprParam <$> paramOrContext "from")
     <*> param ""
+    <*> (maybe 1 fromExprParam <$> param "timeout")
     <*> param "capture"
     <*> innerBlockFunList
 
-- 
cgit v1.2.3