paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 15:56:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: fixed console testrunning crash when writing results to output with fpc 2.0.4 (bug #8798) from Darius

Browse Source 
git-svn-id: trunk@11156 -
This commit is contained in:
vincents 2007-05-16 22:07:22 +00:00
parent 3a7183c039
commit 0a7bf3d67d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpcunit/console/consoletestrunner.pas
View File

@ -140,7 +140,7 @@ var
procedure doXMLTestRun(aTest: TTest);
var
XMLResultsWriter: TXMLResultsWriter;
stream: TStringStream;
begin
try
XMLResultsWriter := TXMLResultsWriter.Create;
@ -151,7 +151,13 @@ var
if FileName<>'' then
WriteXMLFile(XMLResultsWriter.Document, FileName)
else
WriteXMLFile(XMLResultsWriter.Document, output);
begin
// write to output, use stream, because WriteXMLFile(Doc, Output) is broken
stream := TStringStream.Create('');
WriteXMLFile(XMLResultsWriter.Document, stream);
writeln(stream.DataString);
stream.Free;
end;
finally
XMLResultsWriter.Free;
end;