paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 19:00:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patches from Pierre

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-18 15:51:01 +01:00
parent 879e13d96a
commit 38e2cea533
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/Makefile
View File

@ -2412,7 +2412,7 @@ endif
utils: all utils: all
dbconfig$(SRCEXEEXT): dbconfig.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT) dbconfig$(SRCEXEEXT): dbconfig.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $< $(COMPILER) $<
dbdigest$(SRCEXEEXT): dbdigest.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT) dbdigest$(SRCEXEEXT): dbdigest.pp digestanalyst$(PPUEXT) teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $< $(COMPILER) $<
digest$(SRCEXEEXT): digest.pp teststr$(PPUEXT) digest$(SRCEXEEXT): digest.pp teststr$(PPUEXT)
$(COMPILER) $< $(COMPILER) $<

2
tests/utils/Makefile.fpc
View File

@ -37,7 +37,7 @@ utils: all
dbconfig$(SRCEXEEXT): dbconfig.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT) dbconfig$(SRCEXEEXT): dbconfig.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $< $(COMPILER) $<
dbdigest$(SRCEXEEXT): dbdigest.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT) dbdigest$(SRCEXEEXT): dbdigest.pp digestanalyst$(PPUEXT) teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $< $(COMPILER) $<
digest$(SRCEXEEXT): digest.pp teststr$(PPUEXT) digest$(SRCEXEEXT): digest.pp teststr$(PPUEXT)

7
tests/utils/digestanalyst.pas
View File

@ -101,6 +101,7 @@ begin
begin begin
LongLogFile:=TStringList.Create; LongLogFile:=TStringList.Create;
LongLogFile.LoadFromFile(aData.longlogfile); LongLogFile.LoadFromFile(aData.longlogfile);
UseLongLog:=LongLogFile.Count>0;
end; end;
if not GetIDS(aConfig,aData) then if not GetIDS(aConfig,aData) then
exit; exit;
@ -356,15 +357,15 @@ begin
If not AnalyseLine(line,TS) then If not AnalyseLine(line,TS) then
begin begin
Inc(UnknownLines); Inc(UnknownLines);
Verbose(V_Warning,'Unknown line: "'+line+'"'); Verbose(V_Warning,'Unknown line: "'+fullline+'"');
end end
else else
begin begin
Verbose(V_NORMAL,'Analysing result for test '+Line); Verbose(V_NORMAL,'Analysing result for test '+fullLine);
lResult.TestID:=FDB.RequireTestID(line); lResult.TestID:=FDB.RequireTestID(line);
if lResult.TestID=-1 then if lResult.TestID=-1 then
begin begin
Verbose(V_Warning,'No test ID: "'+line+'", skipping'); Verbose(V_Warning,'No test ID: "'+fullline+'", skipping');
Continue; Continue;
end; end;
If ExpectRun[TS] then If ExpectRun[TS] then