paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 00:00:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: tests, increase timeout

Browse Source
This commit is contained in:
Martin 2023-05-25 23:36:34 +02:00
parent 7689b1865f
commit 3a74b7fa79
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggers/lazdebuggerfp/test/testbreakpoint.pas
View File

@ -959,7 +959,7 @@ begin
for j := 1 to 70 do begin
for i := 0 to 9 do begin
Debugger.RunToNextPause(dcRun, 15000);
Debugger.RunToNextPause(dcRun, 30000);
AssertDebuggerState(dsPause, 'in loop');
TestEquals('ThreadId', ThreadIdMain, dbg.Threads.CurrentThreads.CurrentThreadId);
TestLocation('loop '+IntToStr(j)+', '+IntToStr(i), 'BrkMain'+IntToStr(i), j);

2
components/lazdebuggers/lazdebuggerfp/test/teststepping.pas
View File

@ -273,7 +273,7 @@ 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, 25000);
RunToNextPauseNoLoopBreak('', dcRun, 45000);
AssertDebuggerState(dsPause);
TestLocation('At BrkThreadCreateInStep', 'BrkThreadCreateInStep', -1);