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

FpDebug: tests, increase timeout

Browse Source
This commit is contained in:
Martin 2023-05-26 18:22:12 +02:00
parent acfb46b466
commit 81b8660cb1
4 changed files with 7 additions and 7 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, 30000); Debugger.RunToNextPause(dcRun, 90000);
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

@ -279,7 +279,7 @@ begin
// 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, 35000); RunToNextPauseNoLoopBreak('', dcStepOver, 55000);
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);
@ -1162,7 +1162,7 @@ begin
if AnExpAtBrkName <> '' then if AnExpAtBrkName <> '' then
AName := AName + ' (TO: '+AnExpAtBrkName+')'; AName := AName + ' (TO: '+AnExpAtBrkName+')';
THookedFpDebugDebugger(dbg).LockRelCount := 0; THookedFpDebugDebugger(dbg).LockRelCount := 0;
Result := RunToNextPauseNoInternal(AName, ACmd); Result := RunToNextPauseNoInternal(AName, ACmd, ATimeOut);
// LockRelease called in 2 * DoState / 1 * DebugLoopFinished // LockRelease called in 2 * DoState / 1 * DebugLoopFinished
if not TestEquals(AName + ' ' + dbgs(ACmd)+' - lock cnt', 3, THookedFpDebugDebugger(dbg).LockRelCount) if not TestEquals(AName + ' ' + dbgs(ACmd)+' - lock cnt', 3, THookedFpDebugDebugger(dbg).LockRelCount)

4
components/lazdebuggers/lazdebugtestbase/testdbgtestsuites.pas
View File

@ -102,8 +102,8 @@ type
Procedure TestCompile(const Prg: TCommonSource; out ExeName: string; const UsesDirs: array of TUsesDir; Procedure TestCompile(const Prg: TCommonSource; out ExeName: string; const UsesDirs: array of TUsesDir;
NamePostFix: String=''; ExtraArgs: String=''); overload; NamePostFix: String=''; ExtraArgs: String=''); overload;
function RunToNextPauseTestInternal(AName: String; AnInternalCntExp: Integer; ACmd: TDBGCommand; ATimeOut: Integer = 5000; AWaitForInternal: Boolean = False): Boolean; function RunToNextPauseTestInternal(AName: String; AnInternalCntExp: Integer; ACmd: TDBGCommand; ATimeOut: Integer = 15000; AWaitForInternal: Boolean = False): Boolean;
function RunToNextPauseNoInternal(AName: String; ACmd: TDBGCommand; ATimeOut: Integer = 5000; AWaitForInternal: Boolean = False): Boolean; function RunToNextPauseNoInternal(AName: String; ACmd: TDBGCommand; ATimeOut: Integer = 15000; AWaitForInternal: Boolean = False): Boolean;
// Logging // Logging
procedure LogText(const s: string; CopyToTestLogger: Boolean = False); procedure LogText(const s: string; CopyToTestLogger: Boolean = False);

4
components/lazdebuggers/lazdebugtestbase/ttestdbgexecuteables.pas
View File

@ -119,8 +119,8 @@ type
function StartDebugger(AppDir, TestExeName: String): boolean; virtual; function StartDebugger(AppDir, TestExeName: String): boolean; virtual;
procedure FreeDebugger; procedure FreeDebugger;
procedure ClearDbgStateCounts; procedure ClearDbgStateCounts;
function RunToNextPause(ACmd: TDBGCommand; ATimeOut: Integer = 5000; AWaitForInternal: Boolean = False): Boolean; function RunToNextPause(ACmd: TDBGCommand; ATimeOut: Integer = 15000; AWaitForInternal: Boolean = False): Boolean;
function WaitForFinishRun(ATimeOut: Integer = 5000; AWaitForInternal: Boolean = False): Boolean; function WaitForFinishRun(ATimeOut: Integer = 15000; AWaitForInternal: Boolean = False): Boolean;
function SetBreakPoint(AFileName: String; ALine: Integer): TDBGBreakPoint; function SetBreakPoint(AFileName: String; ALine: Integer): TDBGBreakPoint;
function SetBreakPoint(ACommonSource: TCommonSource; AName: String): TDBGBreakPoint; function SetBreakPoint(ACommonSource: TCommonSource; AName: String): TDBGBreakPoint;