anchor.diff:    TXMLChildsTest = class(TTestCase)
     published
       procedure Add;
  -    procedure Item;
  +    procedure ItemByIndex;
  +    procedure ItemByName;
       procedure Count;
     end;
   
  
positive.code: 
  procedure TXMLAttributeTest.SetValue;
  var
    S: UnicodeString;
  begin
    S := 'cyclop';
    CheckEquals(
  
negative.code: procedure TXMLAttributeTest.Name;
  begin
    CheckEquals(
      XMLString('Value'),
      TXMLPack.New(TXMLFileForTest.New.Stream).Node(
        '/CONFIG/Package/Name'
      )
  