anchor.diff:  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>'
  +    + '<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;
   
  
positive.code: procedure TXMLAttributeTest.GetValue;
  begin
    CheckEquals(
      TXMLString('James.XML'),
      TXMLPack.New(TXMLFileForTest.New.Stream).Node(
        '/CONFIG/Package/Name'
      )
  
negative.code: 
  class function TXMLFileForTest.New: IDataFile;
  begin
    Result := inherited New('..\pkg\JamesPack.lpk');
  end;
  
  { TXMLStreamForTest }
  