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

* Patch from Graeme to correct output

Browse Source 
git-svn-id: trunk@7457 -
This commit is contained in:
michael 2007-05-24 17:53:46 +00:00
parent 399ab249d6
commit 6d4c5cf1f7
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-fpcunit/src/fpcunitreport.pp
View File

@ -185,12 +185,12 @@ begin
Inc(TSuiteResults(FResultsList[i]).Ignores); Inc(TSuiteResults(FResultsList[i]).Ignores);
end; end;
constructor TCustomResultsWriter.Create(AOwner: TComponent); constructor TCustomResultsWriter.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FLevel := -1; FLevel := -1;
FCount := 1; FCount := 1;
FFilename := '';
FSuiteResultsStack := TSuiteResultsStack.Create; FSuiteResultsStack := TSuiteResultsStack.Create;
end; end;

13
packages/fcl-fpcunit/src/xmltestreport.pp
View File

@ -238,10 +238,15 @@ begin
n := FDoc.CreateElement('DateTimeRan'); n := FDoc.CreateElement('DateTimeRan');
n.AppendChild(FDoc.CreateTextNode(FormatDateTime('yyyy-mm-dd hh:mm:ss', Now))); n.AppendChild(FDoc.CreateTextNode(FormatDateTime('yyyy-mm-dd hh:mm:ss', Now)));
lResults.AppendChild(n); lResults.AppendChild(n);
system.Assign(f, FileName);
rewrite(f); // This is so that the GUI Test Runner doesn't output text as well.
WriteXMLFile(FDoc, f); if FileName <> 'null' then
close(f); begin
system.Assign(f, FileName);
rewrite(f);
WriteXMLFile(FDoc, f);
close(f);
end;
end; end;
end. end.