anchor.diff:    // Test methods for class TFixInsightXMLParser
   
     TestTFixInsightXMLParser = class (TGenericTestCase)
  +  private
  +    const
  +      STR_TEST_XML_FILE = 'test.xml';
     strict private
       FFixInsightXMLParser : TFixInsightXMLParser;
     private
  
positive.code: 
  procedure TestTFixInsightXMLParser.TestParse;
  var
    Append : Boolean;
  begin
    Append := True;
    FFixInsightXMLParser.Parse(GenerateXMLFile, Append);
  
    // TODO: implement {TestTFixInsightXMLParser.TestParse}
  end;
  
  initialization
  
negative.code: 
  implementation
  
  uses
    System.IOUtils;
  
  function TestTFixInsightXMLParser.GenerateXMLFile : TFileName;
  const
    STR_XML =
    '<?xml version="1.0"?>' + sLineBreak +
    '<FixInsightReport version="2015.11upd6">' + sLineBreak +
    '  <file name="SourceFile_1.pas">' + sLineBreak +
    '    <message line="321" col="123" id="W777">W777 Some message text</message>' + sLineBreak +
    '    <message line="456" col="654" id="C666">C666 Some message text</message>' + sLineBreak +
    '  </file>' + sLineBreak +
    '  <file name="..\SourceFile_2.pas">' + sLineBreak +
    '    <message line="321" col="123" id="O000">O000 Some message text</message>' + sLineBreak +
    '    <message line="456" col="654" id="Tria">Triality!!!</message>' + sLineBreak +
    '  </file>' + sLineBreak +
    '</FixInsightReport>';
  begin
    Result := TestDataDir + STR_TEST_XML_FILE;
    TFile.AppendAllText(Result, STR_XML);
  end;
  
  procedure TestTFixInsightXMLParser.SetUp;
  