anchor.diff:    end;
   end;
   
  -procedure TCoreTests.XMLAttributes;
  +procedure TCoreTests.TestAttributes;
   var
     pack: IXMLPack;
     node: IXMLNode;
  
positive.code:   check(node.Text = 'text', 'default text');
  end;
  
  procedure TCoreTests.XMLNodes;
  var
    pack: IXMLPack;
    nodes: IXMLNodes;
  
negative.code:   check(nodes.Count = 2, 'all items');
  end;
  
  procedure TCoreTests.TestChilds;
  var
    pack: IXMLPack;
    node: IXMLNode;
  