* Patch from Graeme to correct output

git-svn-id: trunk@7457 -

packages/fcl-fpcunit/src/fpcunitreport.pp

@@ -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;
 

packages/fcl-fpcunit/src/xmltestreport.pp

@@ -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.