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