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

DebuggerGdbmi: minor update to tests

Browse Source
This commit is contained in:
Martin 2024-02-20 18:01:36 +01:00
parent e183ea0b5f
commit 74c69d2d0a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazdebuggergdbmi/test/gdbmitestutils/testwatchutils.pas
View File

@ -402,7 +402,7 @@ var
fld: TDBGField;
MemberTests: TFullTypeMemberExpectationResultArray;
function CmpNames(const TestName, Exp, Got: String; Match: Boolean): Boolean;
function CmpNames(const TestName, Exp: String; Got: String; Match: Boolean): Boolean;
begin
if Match then begin
if Frx = nil then Frx := TRegExpr.Create;
@ -410,7 +410,10 @@ var
Frx.Expression := Exp;
TestTrue(TestName + ' matches '+Exp+' but was '+Got, Frx.Exec(Got), DataRes.MinGdb, DataRes.MinFpc, IgnoreText);
end
else TestEquals(TestName + ' equals ', LowerCase(Exp), LowerCase(Got), DataRes.MinGdb, DataRes.MinFpc, IgnoreText);
else begin
if LowerCase(Got) = 'ansichar' then Got := 'char'; // 3.3.1 returns ansichar
TestEquals(TestName + ' equals ', LowerCase(Exp), LowerCase(Got), DataRes.MinGdb, DataRes.MinFpc, IgnoreText);
end;
end;
begin