paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 14:20:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation

Browse Source 
git-svn-id: trunk@24172 -
This commit is contained in:
michael 2013-04-07 10:10:16 +00:00
parent 11e6396cc7
commit 2e1d0c07a5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-fpcunit/src/xmlreporter.pas
View File

@ -43,7 +43,7 @@ uses
type
{ XML Test Listner }
{ XML Test Listener }
{ TXMLResultsWriter }
@ -58,6 +58,7 @@ type
FErrors: TDOMNode;
FLastTestSuite: TDOMNode;
FStartCrono: TDateTime;
FskipTiming : Boolean;
{ Converts the actual test results into XML nodes. This gets called
by the public method WriteResult. }
procedure TestResultAsXML(pTestResult: TTestResult);
@ -78,6 +79,7 @@ type
{ A public property to the internal XML document }
property Document: TXMLDocument read FDoc;
Property SkipTiming : Boolean Read FSkipTiming Write FSkipTiming;
end;
@ -107,6 +109,7 @@ begin
n.AppendChild(FDoc.CreateTextNode(IntToStr(pTestResult.NumberOfIgnoredTests)));
lResults.AppendChild(n);
{ We don't have access to TCustomResultsWriter so we cannot honour SkipTiming}
if not(SkipTiming) then
begin
n := FDoc.CreateElement('TotalElapsedTime');