Graeme Geldenhuys pravi:
> Hi
>
> Attached is a patch for FPCUnit GUI Test Runner. This patch combined
> with the one I sent to FPC-Devel will prevent the GUI Test Runner to
> output the XML test results to the console and the SynEdit component.
> For the GUI Test Runner the SynEdit component should be the only
> output. The Console Test Runner can still output to the console or to
> a file.
>
> This patch must be applied in the root Lazarus directory.
>
>
> ------------------------------------------------------------------------
I think this patch is still pending, can somebody apply it?
Thanks,
Dean
Index: components/fpcunit/guitestrunner.pas
===================================================================
--- components/fpcunit/guitestrunner.pas (revision 10935)
+++ components/fpcunit/guitestrunner.pas (working copy)
@@ -617,6 +617,7 @@
w := TXMLResultsWriter.Create;
{$ELSE}
w := TXMLResultsWriter.Create(nil);
+ w.FileName := 'null'; // prevents output to the console
{$ENDIF}
testResult.AddListener(w);
Index: components/fpcunit/console/consoletestrunner.pas
===================================================================
--- components/fpcunit/console/consoletestrunner.pas (revision 10935)
+++ components/fpcunit/console/consoletestrunner.pas (working copy)
@@ -272,8 +272,8 @@
if HasOption('format') then
begin
if GetOptionValue('format') = 'latex' then
- FormatParam := fLatex;
- if GetOptionValue('format') = 'plain' then
+ FormatParam := fLatex
+ else if GetOptionValue('format') = 'plain' then
FormatParam := fPlain;
end;
