anchor.diff:  
   { TestTHTMLReportCustomTemplate }
   
  +function TestTHTMLReportCustomTemplate.GetTestXMLFileName : String;
  +begin
  +  Result := TestDataDir + ClassName + '.xml';
  +end;
  +
  +procedure TestTHTMLReportCustomTemplate.SetUp;
  +var
  +  L : TStringList;
  +begin
  +  L := TStringList.Create;
  +  try
  +    L.Text := TestTHTMLReportTemplate.STR_TEMPLATE;
  +    L.SaveToFile(GetTestXMLFileName);
  +  finally
  +    L.Free;
  +  end;
  +end;
  +
  +procedure TestTHTMLReportCustomTemplate.TearDown;
  +begin
  +  DeleteFile(GetTestXMLFileName);
  +end;
  +
   procedure TestTHTMLReportCustomTemplate.TestCreate;
   begin
  -  //
  +  CheckException(
  +    procedure
  +    begin
  +      THTMLReportCustomTemplate.Create(String.Empty);
  +    end,
  +    EReportTemplateLoadError,
  +    'CheckException::EReportTemplateLoadError'
  +  );
  +
  +  CheckException(
  +    procedure
  +    begin
  +      THTMLReportCustomTemplate.Create(GetTestXMLFileName).Free;
  +    end,
  +    nil,
  +    'CheckException::nil'
  +  );
   end;
   
   { TestTHTMLReportDefaultTemplate }
   
   procedure TestTHTMLReportDefaultTemplate.TestCreate;
   begin
  -  //
  +  CheckException(
  +    procedure
  +    begin
  +      THTMLReportDefaultTemplate.Create;
  +    end,
  +    EReportTemplateLoadError,
  +    'CheckException::EReportTemplateLoadError'
  +  );
   end;
   
   initialization
  
positive.code: 
  uses
    System.Classes, System.SysUtils,
    FIToolkit.Reports.Builder.Intf, FIToolkit.Reports.Builder.Types;
  
  { TestTHTMLReportBuilder }
  
  
negative.code:   // Test methods for class THTMLReportCustomTemplate
  
    TestTHTMLReportCustomTemplate = class (TGenericTestCase)
    private
      function  GetTestXMLFileName : String;
    public
      procedure SetUp; override;
      procedure TearDown; override;
    published
      procedure TestCreate;
    end;
  