anchor.diff:  end;
   
   { TXMLChildsTest }
  -
  -procedure TXMLChildsTest.Add;
  -var
  -  N: IXMLNode;
  -  C: Integer;
  -begin
  -  N := TXMLPack.New(TXMLStreamForTest.New).Node('/root/group/item');
  -  C := N.Childs.Count;
  -  CheckEquals(
  -    C + 2,
  -    N.Childs
  -      .Add('item')
  -      .Add('item')
  -      .Count
  -  );
  -end;
   
   procedure TXMLChildsTest.ItemByIndex;
   begin
  
positive.code: 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
  
negative.code:   );
  end;
  
  procedure TXMLNodeTest.Parent;
  begin
    CheckEquals(
      XMLString('Package'),
  