anchor.diff:    end;
   end;
   
  -procedure TCoreTests.XMLPack;
  +procedure TCoreTests.TestPack;
   var
     pack, pack2: IXMLPack;
     mem: TMemoryStream;
  
positive.code:   public
      function NewPack: IXMLPack;
    published
      procedure XMLPack;
      procedure XMLNode;
      procedure XMLNodes;
      procedure XMLChilds;
      procedure XMLAttribute;
      procedure XMLAttributes;
    end;
  
  implementation
  
negative.code:   end;
  end;
  
  procedure TCoreTests.TestAttribute;
  var
    pack: IXMLPack;
    node: IXMLNode;
  