anchor.diff:  var
     Msg: string;
   begin
  -  // TODO: Setup method call parameters
  +  Msg := 'TestInfo';
  +  SUT.SeverityThreshold := SEVERITY_INFO;
  +
     SUT.Info(Msg);
  -  // TODO: Validate method results
  +
  +  CheckEquals(1, FOutput.WrittenLinesCount, 'WrittenLinesCount = 1');
  +  CheckTrue(FOutput.LastWrittenLine.Contains(Msg), 'CheckTrue::LastWrittenLine.Contains(Msg)');
   end;
   
   procedure TestTLogger.TestInfo1;
  
positive.code: var
    Msg: string;
  begin
    // TODO: Setup method call parameters
    SUT.Debug(Msg);
    // TODO: Validate method results
  end;
  
  procedure TestTLogger.TestDebug1;
  
negative.code: var
    Msg: string;
  begin
    Msg := 'TestWarning';
    SUT.SeverityThreshold := SEVERITY_WARNING;
  
    SUT.Warning(Msg);
  
    CheckEquals(1, FOutput.WrittenLinesCount, 'WrittenLinesCount = 1');
    CheckTrue(FOutput.LastWrittenLine.Contains(Msg), 'CheckTrue::LastWrittenLine.Contains(Msg)');
  end;
  
  procedure TestTLogger.TestWarning1;
  