anchor.diff:    CheckNotNull(P.Node('/root/level-1/level-2'));
   end;
   
  -procedure TXavierNodeTest.Childs;
  +procedure TXavierNodeTest.ChildsNotNull;
   begin
     CheckNotNull(
       TXavierPack.New(TXMLStreamForTest.New).Node(
  
positive.code:     procedure Name;
      procedure GetValue;
      procedure SetValue;
      procedure Attrs;
      procedure Add;
      procedure AddTwoLevels;
      procedure Childs;
      procedure Parent;
    end;
  
  
negative.code:   );
  end;
  
  procedure TXavierNodeTest.AttrsNotNull;
  begin
    CheckEquals(
      0,
      TXavierPack.New(TXMLStreamForTest.New).Node(
        '/root/footer'
      )
      .Attrs
      .Count
  