anchor.diff:  
   procedure TXMLNodeTest.Childs;
   begin
  -  CheckEquals(
  -    2,
  +  CheckNotNull(
       TXMLPack.New(TXMLStreamForTest.New).XPath(
         '/root/group'
  -    ).Childs.Count
  +    )
  +    .Childs
     );
   end;
   
  
positive.code:   TTestSuite.New('Core')
      .Add(TTest.New(TXMLPackTest))
      .Add(TTest.New(TXMLNodeTest))
      .Add(TTest.New(TXMLAttributeTest))
  
  end.
  
negative.code:     procedure Attrs;
      procedure Childs;
      procedure Up;
    end;
  
    TXMLNodesTest = class(TTestCase)
    published
      procedure Item;
      procedure Count;
    end;
  
    TXMLAttributeTest = class(TTestCase)
  