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

fpcunit test runners: less output on the console fro Graeme.

Browse Source 
git-svn-id: trunk@11221 -
This commit is contained in:
vincents 2007-05-29 20:20:07 +00:00
parent 26b03893db
commit 11ec1c7a2e
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -278,8 +278,8 @@ begin
if HasOption('format') then if HasOption('format') then
begin begin
if GetOptionValue('format') = 'latex' then if GetOptionValue('format') = 'latex' then
FormatParam := fLatex; FormatParam := fLatex
if GetOptionValue('format') = 'plain' then else if GetOptionValue('format') = 'plain' then
FormatParam := fPlain; FormatParam := fPlain;
end; end;

1
components/fpcunit/guitestrunner.pas
View File

@ -617,6 +617,7 @@ begin
w := TXMLResultsWriter.Create; w := TXMLResultsWriter.Create;
{$ELSE} {$ELSE}
w := TXMLResultsWriter.Create(nil); w := TXMLResultsWriter.Create(nil);
w.FileName := 'null'; // prevents output to the console
{$ENDIF} {$ENDIF}
testResult.AddListener(w); testResult.AddListener(w);