paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 11:59:18 +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 j := 1 to 70 do begin
for i := 0 to 9 do begin for i := 0 to 9 do begin
Debugger.RunToNextPause(dcRun); Debugger.RunToNextPause(dcRun, 15000);
AssertDebuggerState(dsPause, 'in loop'); AssertDebuggerState(dsPause, 'in loop');
TestEquals('ThreadId', ThreadIdMain, dbg.Threads.CurrentThreads.CurrentThreadId); TestEquals('ThreadId', ThreadIdMain, dbg.Threads.CurrentThreads.CurrentThreadId);
TestLocation('loop '+IntToStr(j)+', '+IntToStr(i), 'BrkMain'+IntToStr(i), j); 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 (* The debugger will encounter a thread create event, during the stepping
This will mean the main-loop's FCurrentThread is the new thread This will mean the main-loop's FCurrentThread is the new thread
*) *)
RunToNextPauseNoLoopBreak('', dcRun); RunToNextPauseNoLoopBreak('', dcRun, 25000);
AssertDebuggerState(dsPause); AssertDebuggerState(dsPause);
TestLocation('At BrkThreadCreateInStep', 'BrkThreadCreateInStep', -1); TestLocation('At BrkThreadCreateInStep', 'BrkThreadCreateInStep', -1);
// This test can take longer, as the new thread gets very little scheduler time // This test can take longer, as the new thread gets very little scheduler time
// during the single stepping of the main thread. // during the single stepping of the main thread.
RunToNextPauseNoLoopBreak('', dcStepOver, 25000); RunToNextPauseNoLoopBreak('', dcStepOver, 35000);
AssertDebuggerState(dsPause); AssertDebuggerState(dsPause);
TestLocation('At AfterThreadCreateInStep', 'AfterThreadCreateInStep', -1); TestLocation('At AfterThreadCreateInStep', 'AfterThreadCreateInStep', -1);
TestEquals('ThreadId AfterThreadCreateInStep', ThreadIdMain, dbg.Threads.CurrentThreads.CurrentThreadId); TestEquals('ThreadId AfterThreadCreateInStep', ThreadIdMain, dbg.Threads.CurrentThreads.CurrentThreadId);