anchor.diff:  end;
   
   { TXMLNodesTest }
  -
  -procedure TXMLNodesTest.RunAdd;
  -begin
  -  TXMLPack.New(TXMLStreamForTest.New).Nodes(
  -    '/root/group/item[@a=''1'']'
  -  )
  -  .Add('new')
  -end;
  -
  -procedure TXMLNodesTest.Add;
  -begin
  -  CheckException(RunAdd, EXMLError);
  -end;
   
   procedure TXMLNodesTest.ItemByIndex;
   begin
  
positive.code:     procedure GetValue;
      procedure SetValue;
      procedure Attrs;
      procedure Childs;
      procedure Up;
    end;
  
    TXMLNodesTest = class(TTestCase)
    private
      procedure RunAdd;
    published
      procedure Add;
      procedure ItemByIndex;
      procedure ItemByName;
      procedure Count;
  
negative.code: end;
  
  { TXMLChildsTest }
  
  procedure TXMLChildsTest.ItemByIndex;
  begin
  