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

FpDebug: Testcases, increase some timeouts

Browse Source
This commit is contained in:
Martin 2023-01-24 17:41:48 +01:00
parent ad9a460928
commit 80ef1fb668
2 changed files with 3 additions and 3 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);
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);

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

@ -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);