paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +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 type
{ XML Test Listner } { XML Test Listener }
{ TXMLResultsWriter } { TXMLResultsWriter }
@ -58,6 +58,7 @@ type
FErrors: TDOMNode; FErrors: TDOMNode;
FLastTestSuite: TDOMNode; FLastTestSuite: TDOMNode;
FStartCrono: TDateTime; FStartCrono: TDateTime;
FskipTiming : Boolean;
{ Converts the actual test results into XML nodes. This gets called { Converts the actual test results into XML nodes. This gets called
by the public method WriteResult. } by the public method WriteResult. }
procedure TestResultAsXML(pTestResult: TTestResult); procedure TestResultAsXML(pTestResult: TTestResult);
@ -78,6 +79,7 @@ type
{ A public property to the internal XML document } { A public property to the internal XML document }
property Document: TXMLDocument read FDoc; property Document: TXMLDocument read FDoc;
Property SkipTiming : Boolean Read FSkipTiming Write FSkipTiming;
end; end;
@ -107,6 +109,7 @@ begin
n.AppendChild(FDoc.CreateTextNode(IntToStr(pTestResult.NumberOfIgnoredTests))); n.AppendChild(FDoc.CreateTextNode(IntToStr(pTestResult.NumberOfIgnoredTests)));
lResults.AppendChild(n); lResults.AppendChild(n);
{ We don't have access to TCustomResultsWriter so we cannot honour SkipTiming}
if not(SkipTiming) then if not(SkipTiming) then
begin begin
n := FDoc.CreateElement('TotalElapsedTime'); n := FDoc.CreateElement('TotalElapsedTime');