anchor.diff:  begin
     pack := NewPack;
     nodes := pack.Nodes('/root/group/*');
  -  Check(nodes.Count = 2);
  -  Check(assigned(nodes.Item('item'))); // by name, get the first
  -  Check(assigned(nodes.Item(0)));
  -  Check(assigned(nodes.Item(1)));
  +  check(nodes.Count = 2);
  +  check(assigned(nodes.Item('item'))); // by name, get the first
  +  check(assigned(nodes.Item(0)));
  +  check(assigned(nodes.Item(1)));
     with pack.Node('/root/group') do
     begin
       Add('new').Text('foo');
  -    Check(nodes.Count = 2); // have not changed nodes list - correct
  -    Check(pack.Nodes('/root/group/*').Count = 3); // new list
  +    check(nodes.Count = 2); // have not changed nodes list - correct
  +    check(pack.Nodes('/root/group/*').Count = 3); // new list
     end;
     nodes := pack.Nodes('/root/group/item[@b=''2'']');
  -  Check(assigned(nodes), 'nodes by @id');
  -  Check(nodes.Count > 0, 'nodes count');
  -  Check(assigned(nodes.Item(0)), 'nodes has item');
  -  Check(nodes.Item(0).Attrs.Count = 3, 'nodes.attrs.count');
  +  check(assigned(nodes), 'nodes by @id');
  +  check(nodes.Count > 0, 'nodes count');
  +  check(assigned(nodes.Item(0)), 'nodes has item');
  +  check(nodes.Item(0).Attrs.Count = 3, 'nodes.attrs.count');
     nodes := pack.Nodes('/root/group/item[@a=''1'']');
  -  Check(nodes.Count = 2, 'nodes.count for @a');
  +  check(nodes.Count = 2, 'nodes.count for @a');
     nodes := pack.Nodes('/root/group/item[@xpto=''otpx'']');
  -  Check(nodes.Count = 0, 'nodes.count empty');
  +  check(nodes.Count = 0, 'nodes.count empty');
  +  nodes := pack.Nodes('/root/group//item'); // it gets all item nodes
  +  check(nodes.Count = 2, 'all items');
   end;
   
   procedure TCoreTests.XMLChilds;
  
positive.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;
  
  
negative.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;
  