anchor.diff:  begin
     Assert(FSuiteDataStack.Count > 0);
     result := TSuiteData(FSuiteDataStack.Items[0]).SuiteElement;
  +end;
  +
  +function TXMLTestListener.CurrentSuiteName: string;
  +begin
  +  Assert(FSuiteDataStack.Count > 0);
  +  result := TSuiteData(FSuiteDataStack.Items[0]).Name;
   end;
   
   const
  
positive.code:   data.ResultsElement := resultsElement;
    data.ErrorCount := FErrorCount;
    data.FailureCount := FFailureCount;
    FSuiteDataStack.Insert(0,data);
    FFailureCount := 0;
    FErrorCount := 0;
  
negative.code:     procedure PushSuite(const suiteElement, resultsElement : IXMLDOMElement; const name : string);
      procedure PopSuite(var suiteElement, resultsElement : IXMLDOMElement; var name : string );
      function CurrentSuiteElement : IXMLDOMElement;
      function CurrentSuiteName : string;
  
      function CurrentResultsElement : IXMLDOMElement;
    protected
  
  