anchor.diff:    CheckNotNull(P.Node('/root/level-1/level-2'));
   end;
   
  -procedure TXavierNodeTest.Childs;
  +procedure TXavierNodeTest.ChildsNotNull;
   begin
     CheckNotNull(
       TXavierPack.New(TXMLStreamForTest.New).Node(
  
positive.code:     procedure Name;
      procedure GetValue;
      procedure SetValue;
      procedure Attrs;
      procedure Add;
      procedure AddTwoLevels;
      procedure Childs;
      procedure Parent;
    end;
  
  
negative.code:       + '      <value>bar2</value>'
        + '    </item>'
        + '  </group>'
        + '  <footer>'
        + '    <name>foo</name>'
        + '  </footer>'
        + '</root>'
    );
  end;
  