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

FpDebugger: updated tests

Browse Source 
git-svn-id: trunk@64021 -
This commit is contained in:
martin 2020-10-15 18:38:18 +00:00
parent 6156b1bf31
commit 569ea0aeb7
2 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,10 +5,9 @@ unit TestBreakPoint;
interface
uses
Classes, SysUtils, math,
TestDbgControl, TestDbgTestSuites,
TTestWatchUtilities, TestCommonSources, TestDbgConfig, DbgIntfDebuggerBase,
DbgIntfBaseTypes, LazLoggerBase, Forms;
Classes, SysUtils, math, TestDbgControl, TestDbgTestSuites,
TTestWatchUtilities, TestCommonSources, TestDbgConfig, TTestDebuggerClasses,
DbgIntfDebuggerBase, DbgIntfBaseTypes, LazLoggerBase, Forms;
type
@ -306,6 +305,15 @@ begin
(* Initialize
Find all threads
*)
dbg.Threads.CurrentThreads.Count;
j := 0;
while TTestThreads(dbg.Threads.CurrentThreads).DataValidity <> ddsValid do begin
sleep(50);
Application.ProcessMessages;
inc(j);
if j > 100 then break;
end;
j := 0;
for i := 0 to dbg.Threads.CurrentThreads.Count-1 do begin
t := dbg.Threads.CurrentThreads.Entries[i];
@ -339,6 +347,15 @@ var
r: TRegisters;
ax, bx: TRegisterValue;
begin
dbg.Threads.CurrentThreads.Count;
j := 0;
while TTestThreads(dbg.Threads.CurrentThreads).DataValidity <> ddsValid do begin
sleep(50);
Application.ProcessMessages;
inc(j);
if j > 100 then break;
end;
for i := -1 to Min(9, dbg.Threads.CurrentThreads.Count-1) do begin
t := dbg.Threads.CurrentThreads.EntryById[FThrPrgInfo.Threads[i].ID];
TestTrue(ATestName+' thread for '+inttostr(FThrPrgInfo.Threads[i].ID), t<> nil);

1
components/lazdebuggers/lazdebugtestbase/ttestdebuggerclasses.pas
View File

@ -62,6 +62,7 @@ type
function Count: Integer; override;
procedure Clear; override;
procedure SetValidity(AValidity: TDebuggerDataState); override;
property DataValidity: TDebuggerDataState read FDataValidity;
end;
{ TTestThreadsMonitor }