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

DBG: tests

Browse Source 
git-svn-id: trunk@32923 -
This commit is contained in:
martin 2011-10-16 14:16:31 +00:00
parent f2951a1fd4
commit 9a5be76311
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/test/Gdbmi/testbase.pas
View File

@ -606,7 +606,7 @@ end;
function TGDBTestCase.TestEquals(Name: string; Expected, Got: string; MinGdbVers: Integer = 0; AIgnoreReason: String = ''): Boolean;
begin
TestEquals(Name, Expected, Got, MinGdbVers, 0, AIgnoreReason);
Result := TestEquals(Name, Expected, Got, MinGdbVers, 0, AIgnoreReason);
end;
function TGDBTestCase.TestEquals(Name: string; Expected, Got: string; MinGdbVers: Integer;
@ -625,7 +625,7 @@ end;
function TGDBTestCase.TestEquals(Name: string; Expected, Got: integer; MinGdbVers: Integer = 0; AIgnoreReason: String = ''): Boolean;
begin
TestEquals(Name, Expected, Got, MinGdbVers, 0, AIgnoreReason);
Result := TestEquals(Name, Expected, Got, MinGdbVers, 0, AIgnoreReason);
end;
function TGDBTestCase.TestEquals(Name: string; Expected, Got: integer; MinGdbVers: Integer;
@ -639,7 +639,7 @@ end;
function TGDBTestCase.TestTrue(Name: string; Got: Boolean; MinGdbVers: Integer; AIgnoreReason: String = ''): Boolean;
begin
TestTrue(Name, Got, MinGdbVers, 0, AIgnoreReason);
Result := TestTrue(Name, Got, MinGdbVers, 0, AIgnoreReason);
end;
function TGDBTestCase.TestTrue(Name: string; Got: Boolean; MinGdbVers: Integer;
@ -653,7 +653,7 @@ end;
function TGDBTestCase.TestFalse(Name: string; Got: Boolean; MinGdbVers: Integer; AIgnoreReason: String = ''): Boolean;
begin
TestFalse(Name, Got, MinGdbVers, 0, AIgnoreReason);
Result := TestFalse(Name, Got, MinGdbVers, 0, AIgnoreReason);
end;
function TGDBTestCase.TestFalse(Name: string; Got: Boolean; MinGdbVers: Integer;

10
debugger/test/Gdbmi/testwatches.pas
View File

@ -231,7 +231,10 @@ begin
Result[i].ExpTypeName := ATpNm;
Result[i].Flgs := AFlgs;
if ( (fnoDwrf in AFlgs) and (i in [stDwarf, stDwarfSet, stDwarf3]) ) or
( (fnoDwrfNoSet in AFlgs) and (i in [stDwarf]) )
( (fnoDwrfNoSet in AFlgs) and (i in [stDwarf]) ) or
( (fnoDwrf2 in AFlgs) and (i in [stDwarf, stDwarfSet]) ) or
( (fnoDwrf3 in AFlgs) and (i in [stDwarf3]) ) or
( (fnoStabs in AFlgs) and (i in [stStabs]) )
then Result[i].Flgs := Result[i].Flgs + [fTstSkip];
Result[i].MinGdb := AMinGdb;
Result[i].MinFpc := AMinFpc;
@ -560,9 +563,9 @@ begin
r:=AddFmtDef('PMyAnsiString(VArgPMyAnsiString)', MatchPointer, skPointer, '^(\^|PMy)AnsiString$', [fTpMtch]);
UpdRes(r, stStabs, '^(PMyAnsiString|PPChar)$', [fTpMtch]);
// TODO,, IDE derefs with dwarf3
r:=AddFmtDef('^AnsiString(ArgPMyAnsiString)', MatchPointer, skPointer, '^(\^AnsiString|\^\^char)', [fnoDwrf3, fTpMtch]);
r:=AddFmtDef('^AnsiString(ArgPMyAnsiString)', MatchPointer, skPointer, '^(\^AnsiString|\^\^char)', [fTpMtch]);
UpdRes(r, stStabs, '^(\^AnsiString|PPChar)$', [fTpMtch]);
r:=AddFmtDef('^AnsiString(VArgPMyAnsiString)', MatchPointer, skPointer, '^(\^AnsiString|\^\^char)', [fnoDwrf3, fTpMtch]);
r:=AddFmtDef('^AnsiString(VArgPMyAnsiString)', MatchPointer, skPointer, '^(\^AnsiString|\^\^char)', [fTpMtch]);
UpdRes(r, stStabs, '^(\^AnsiString|PPChar)$', [fTpMtch]);
r:=AddStringFmtDef('AnsiString(ArgPMyAnsiString^)', '''MyAnsi P''$', '^((TMy)?AnsiString|\^char)$', [fTpMtch]);
@ -1137,6 +1140,7 @@ begin
TestBaseName := NamePreFix;
if not HasTestArraysData then exit;
Only := StrToIntDef(TestControlForm.EdOnlyWatch.Text, -1);
OnlyNamePart := '';OnlyName := '';
if Only < 0
then begin
OnlyName := TestControlForm.EdOnlyWatch.Text;