anchor.diff:      .Add(TTest.New(TXMLNodeTest))
       .Add(TTest.New(TXMLNodesTest))
       .Add(TTest.New(TXMLAttributeTest))
  +    .Add(TTest.New(TXMLAttributesTest))
   
   end.
   
  
positive.code:     procedure SetValue;
    end;
  
  implementation
  
  { TXMLFileForTest }
  
negative.code:     .Item(0)
      .Value(S)
      .Value
    );
  end;
  
  { TXMLAttributesTest }
  
  procedure TXMLAttributesTest.Item;
  begin
    CheckEquals(
      UnicodeString('1'),
      TXMLPack.New(TXMLStreamForTest.New).XPath(
        '/root/group/item'
      )
      .Attrs
      .Item(0)
      .Value
    );
  end;
  
  procedure TXMLAttributesTest.Count;
  begin
    CheckEquals(
      2,
      TXMLPack.New(TXMLStreamForTest.New).XPath(
        '/root/group/item'
      )
      .Attrs
      .Count
    );
  end;
  
  