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.Item;
   begin
  
positive.code:   James.IO,
    James.IO.Clss,
    James.Testing.Clss,
    Xavier.Core.Clss;
  
  type
    TXMLFileForTest = class(TFile)
  
negative.code:     TXMLPack.New(TXMLFileForTest.New.Stream).Node(
        '/CONFIG/Package/CompilerOptions'
      )
      .Parent
      .Name
    );
  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.Item;
  begin
  