anchor.diff:  begin
     pack := NewPack;
     node := pack.Node('/root/group/item');
  -  Check(node.Childs.Count = 2);
  -  Check(assigned(node.Childs.Item('name'))); // by name
  -  Check(assigned(node.Childs.Item('value')));
  +  check(node.Childs.Count = 2);
  +  check(assigned(node.Childs.Item('name'))); // by name
  +  check(assigned(node.Childs.Item('value')));
     with pack.Node('/root/empty') do
     begin
  -    Check(assigned(Childs), 'empty childs');
  -    Check(Childs.Count = 0, 'empty childs count');
  +    check(assigned(Childs), 'empty childs');
  +    check(Childs.Count = 0, 'empty childs count');
     end;
     with pack.Node('/root/footer') do
     begin
  -    Check(assigned(Childs), 'footer childs');
  -    Check(Childs.Count = 1, 'footer childs count');
  +    check(assigned(Childs), 'footer childs');
  +    check(Childs.Count = 1, 'footer childs count');
     end;
   end;
   
  
positive.code:   pack: IXMLPack;
  begin
    pack := NewPack;
    Check(pack.Node('/root').Name = 'root');
    Check(pack.Node('/root/group').Name = 'group');
    Check(pack.Node('/root/group').Childs.Count = 2);
    Check(assigned(pack.Node('/root/group/item/name')));
    Check(assigned(pack.Node('/root/footer/name')));
  end;
  
  procedure TCoreTests.XMLNode;
  
negative.code: begin
    pack := NewPack;
    node := pack.Node('/root/footer');
    check(assigned(node.Attrs));
    with node.Attrs do
    begin
      check(Count = 0, 'footer: count 0');
      Add('a','1');
      Add('b','2');
      check(Count = 2, 'footer: count 2');
      with Item(0) do
      begin
        check(Name = 'a', 'footer a name');
        check(Text = '1', 'footer a text');
      end;
      with Item(1) do
      begin
        check(Name = 'b', 'footer b name');
        check(Text = '2', 'footer b value');
      end;
    end;
  
  