paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +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);
end;
constructor TCustomResultsWriter.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FLevel := -1;
FCount := 1;
FFilename := '';
FSuiteResultsStack := TSuiteResultsStack.Create;
end;

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

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