anchor.diff:      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
   
  
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;
  