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

* Output new error address, unit and line info

Browse Source 
git-svn-id: trunk@30319 -
This commit is contained in:
michael 2015-03-24 15:46:16 +00:00
parent 5271c7674a
commit 759549168f
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-fpcunit/src/plaintestreport.pp
View File

@ -124,10 +124,8 @@ begin
begin
FDoc[FDoc.Count -1] := FDoc[FDoc.Count -1] + ' Error: ' + FTempFailure.ExceptionClassName;
FDoc.Add(StringOfChar(' ',ALevel*2) + ' Exception: ' + FTempFailure.ExceptionMessage);
FDoc.Add(StringOfChar(' ',ALevel*2) + ' Source unit: ' + FTempFailure.SourceUnitName);
FDoc.Add(StringOfChar(' ',ALevel*2) + ' Method name: ' + FTempFailure.FailedMethodName);
FDoc.Add(StringOfChar(' ',ALevel*2) + ' Line number: '
+ IntToStr(FTempFailure.LineNumber));
FDoc.Add(StringOfChar(' ',ALevel*2) + ' at ' + FTempFailure.LocationInfo);
// TODO: Add stack dump output info
end
else
if FTempFailure.IsIgnoredTest then
@ -136,9 +134,13 @@ begin
+ FTempFailure.ExceptionMessage;
end
else
begin
//is a failure
FDoc[FDoc.Count -1] := FDoc[FDoc.Count -1] + ' Failed: '
+ FTempFailure.ExceptionMessage;
FDoc.Add(StringOfChar(' ',ALevel*2) + ' Exception: ' + FTempFailure.ExceptionMessage);
FDoc.Add(StringOfChar(' ',ALevel*2) + ' at ' + FTempFailure.LocationInfo);
end;
end;
FTempFailure := nil;
end;
@ -225,9 +227,7 @@ begin
Result := Result + ' Message: ' + f.AsString + System.sLineBreak;
Result := Result + ' Exception class: ' + f.ExceptionClassName + System.sLineBreak;
Result := Result + ' Exception message: ' + f.ExceptionMessage + System.sLineBreak;
Result := Result + ' Source unitname: ' + f.SourceUnitName + System.sLineBreak;
Result := Result + ' Line number: ' + IntToStr(f.LineNumber) + System.sLineBreak;
Result := Result + ' Failed methodname: ' + f.FailedMethodName + System.sLineBreak;
Result := Result + ' at ' + f.LocationInfo + System.sLineBreak;
end;
end;
if NumberOfFailures <> 0 then
@ -242,6 +242,7 @@ begin
Result := Result + ' Message: ' + f.AsString + System.sLineBreak;
Result := Result + ' Exception class: ' + f.ExceptionClassName + System.sLineBreak;
Result := Result + ' Exception message: ' + f.ExceptionMessage + System.sLineBreak;
Result := Result + ' at ' + f.LocationInfo + System.sLineBreak;
end;
end;
if NumberOfIgnoredTests <> 0 then