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