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

git-svn-id: trunk@11221 -

components/fpcunit/console/consoletestrunner.pas

@@ -278,8 +278,8 @@ begin
   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;
 

components/fpcunit/guitestrunner.pas

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