anchor.diff:  
   procedure TXMLNodeTest.Childs;
   begin
  -  CheckEquals(
  -    2,
  +  CheckNotNull(
       TXMLPack.New(TXMLStreamForTest.New).XPath(
         '/root/group'
  -    ).Childs.Count
  +    )
  +    .Childs
     );
   end;
   
  
positive.code:     TXMLPack.New(TXMLFileForTest.New.Stream).XPath(
        '/CONFIG/Package/CompilerOptions'
      ).Up.Name
    );
  end;
  
  
negative.code:     procedure Attrs;
      procedure Childs;
      procedure Up;
    end;
  
    TXMLNodesTest = class(TTestCase)
    published
      procedure Item;
      procedure Count;
    end;
  
    TXMLAttributeTest = class(TTestCase)
  