anchor.diff:  procedure TXMLAttributeTest.GetValue;
   begin
     CheckEquals(
  -    TXMLString('James.XML'),
  +    TXMLString('JamesPack'),
       TXMLPack.New(TXMLFileForTest.New.Stream).Node(
         '/CONFIG/Package/Name'
       )
  
positive.code: begin
    Result := TDataStream.New(
        '<?xml version="1.0" encoding="UTF-8"?>'
        + '<root>'
        + '  <group>'
        + '    <item id="1" a="1" b="2">'
        + '      <name>foo</name>'
        + '      <value>bar</value>'
        + '    </item>'
        + '    <item id="2" a="1" b="2">'
        + '      <name>foo2</name>'
        + '      <value>bar2</value>'
        + '    </item>'
        + '  </group>'
        + '  <footer>'
        + '    <name>foo</name>'
        + '  </footer>'
        + '</root>'
    );
  end;
  
  
negative.code: 
  class function TXMLFileForTest.New: IDataFile;
  begin
    Result := inherited New('..\pkg\JamesPack.lpk');
  end;
  
  { TXMLStreamForTest }
  