anchor.diff:      suiteElement := FXMLDoc.createElement('test-suite');
       suiteElement.setAttribute('type','Assembly');
       suiteElement.setAttribute('name',suite.Name);
  +    suiteElement.setAttribute('result','Success');
  +    suiteElement.setAttribute('success','True');
  +    suiteElement.setAttribute('time','0');
       FTestResultsElement.appendChild(suiteElement);
       resultsElement := FXMLDoc.createElement('results');
       suiteElement.appendChild(resultsElement);
  
positive.code:     CurrentSuiteElement.setAttribute('result','Success');
      CurrentSuiteElement.setAttribute('success','True');
    end;
  
    PopSuite(suiteElement,resultsElement,name);
  //  Assert(name = suite.Name);
  
  
  end;
  
  procedure TXMLTestListener.StartSuite(suite: ITest);
  
negative.code:   data.ResultsElement := resultsElement;
    data.ErrorCount := FErrorCount;
    data.FailureCount := FFailureCount;
    data.Name := name;
    FSuiteDataStack.Insert(0,data);
    FFailureCount := 0;
    FErrorCount := 0;
  