anchor.diff:      CurrentSuiteElement.setAttribute('result','Success');
       CurrentSuiteElement.setAttribute('success','True');
     end;
  -
     PopSuite(suiteElement,resultsElement,name);
  -//  Assert(name = suite.Name);
  -
  -
   end;
   
   procedure TXMLTestListener.StartSuite(suite: ITest);
  
positive.code: begin
    Assert(FSuiteDataStack.Count > 0);
    result := TSuiteData(FSuiteDataStack.Items[0]).SuiteElement;
  end;
  
  const
  
negative.code:   data.ResultsElement := resultsElement;
    data.ErrorCount := FErrorCount;
    data.FailureCount := FFailureCount;
    data.Name := name;
    FSuiteDataStack.Insert(0,data);
    FFailureCount := 0;
    FErrorCount := 0;
  