From 80ef1fb66826e0edc5b5825c16ea06f08e852ea4 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Tue, 24 Jan 2023 17:41:48 +0100
Subject: [PATCH] FpDebug: Testcases, increase some timeouts

---
 components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas | 2 +-
 components/lazdebuggers/lazdebuggerfp/test/teststepping.pas   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas b/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas
index 952b34fb71..b2c225495f 100644
--- a/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas
+++ b/components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas
@@ -959,7 +959,7 @@ begin
     for j := 1 to 70 do begin
       for i := 0 to 9 do begin
 
-        Debugger.RunToNextPause(dcRun);
+        Debugger.RunToNextPause(dcRun, 15000);
         AssertDebuggerState(dsPause, 'in loop');
         TestEquals('ThreadId', ThreadIdMain, dbg.Threads.CurrentThreads.CurrentThreadId);
         TestLocation('loop '+IntToStr(j)+', '+IntToStr(i), 'BrkMain'+IntToStr(i), j);
diff --git a/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas b/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas
index 4a2fdff4cd..191f800252 100644
--- a/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas
+++ b/components/lazdebuggers/lazdebuggerfp/test/teststepping.pas
@@ -273,13 +273,13 @@ begin
     (* The debugger will encounter a thread create event, during the stepping
        This will mean the main-loop's FCurrentThread is the new thread
     *)
-    RunToNextPauseNoLoopBreak('', dcRun);
+    RunToNextPauseNoLoopBreak('', dcRun, 25000);
     AssertDebuggerState(dsPause);
     TestLocation('At BrkThreadCreateInStep', 'BrkThreadCreateInStep', -1);
 
     // This test can take longer, as the new thread gets very little scheduler time
     // during the single stepping of the main thread.
-    RunToNextPauseNoLoopBreak('', dcStepOver, 25000);
+    RunToNextPauseNoLoopBreak('', dcStepOver, 35000);
     AssertDebuggerState(dsPause);
     TestLocation('At AfterThreadCreateInStep', 'AfterThreadCreateInStep', -1);
     TestEquals('ThreadId AfterThreadCreateInStep', ThreadIdMain, dbg.Threads.CurrentThreads.CurrentThreadId);