anchor.diff:  implementation
   
   uses
  -  System.SysUtils;
  +  System.SysUtils,
  +  FIToolkit.Logger.Consts;
   
   { TTestTextOutput }
   
   procedure TTestTextOutput.WriteLine(const S : String);
   begin
     FLastWrittenLine := S;
  +  Inc(FWrittenLinesCount);
   end;
   
   { TestTLogger }
  
positive.code: 
  procedure TestTPlainTextOutput.TestBeginSection;
  var
    Msg: string;
    Instant: TLogTimestamp;
  begin
    // TODO: Setup method call parameters
    SUT.BeginSection(Instant, Msg);
    // TODO: Validate method results
  end;
  
  procedure TestTPlainTextOutput.TestEndSection;
  var
    Msg: string;
    Instant: TLogTimestamp;
  begin
    // TODO: Setup method call parameters
    SUT.EndSection(Instant, Msg);
    // TODO: Validate method results
  end;
  
  procedure TestTPlainTextOutput.TestWriteMessage;
  
negative.code:   TTestTextOutput = class (TPlainTextOutput)
      strict private
        FLastWrittenLine : String;
        FWrittenLinesCount : Integer;
      strict protected
        procedure WriteLine(const S : String); override;
      public
        property LastWrittenLine : String read FLastWrittenLine;
        property WrittenLinesCount : Integer read FWrittenLinesCount;
    end;
  
    { SUT }
  