anchor.diff:    end;
   end;
   
  +procedure TestTLogger.TestAllowedItems;
  +const
  +  STR_MSG = '<TestAllowedItems>';
  +begin
  +  CheckEquals<TLogItems>([liMessage, liSection], SUT.AllowedItems, 'AllowedItems = [liMessage, liSection]');
  +
  +  SUT.AllowedItems := [];
  +  SUT.EnterSection(STR_MSG);
  +  SUT.EnterMethod(ClassType, @TestTLogger.TestAllowedItems, []);
  +  SUT.Debug(STR_MSG);
  +  CheckEquals(0, FOutput.WrittenLinesCount, 'WrittenLinesCount = 0');
  +
  +  SUT.AllowedItems := [liMessage];
  +  SUT.Debug(STR_MSG);
  +  CheckEquals(1, FOutput.WrittenLinesCount, 'WrittenLinesCount = 1');
  +
  +  SUT.AllowedItems := [liSection];
  +  SUT.EnterSection(STR_MSG);
  +  CheckEquals(2, FOutput.WrittenLinesCount, 'WrittenLinesCount = 2');
  +
  +  SUT.AllowedItems := [liMethod];
  +  SUT.EnterMethod(ClassType, @TestTLogger.TestAllowedItems, []);
  +  CheckEquals(3, FOutput.WrittenLinesCount, 'WrittenLinesCount = 3');
  +end;
  +
   procedure TestTLogger.TestEnterSection;
   const
     STR_MSG = '<TestEnterSection>';
  
positive.code:   Msg: string;
    Severity: TLogMsgSeverity;
  begin
    // TODO: Setup method call parameters
    Severity := Default(TLogMsgSeverity);
    SUT.Log(Severity, Msg);
    // TODO: Validate method results
  end;
  
  procedure TestTLogger.TestLog1;
  //var
  //  Vals: $17;
  //  Severity: TLogMsgSeverity;
  begin
    // TODO: Setup method call parameters
    //FAbstractLogger.Log(Severity, Vals);
    // TODO: Validate method results
  end;
  
  procedure TestTLogger.TestLogFmt;
  //var
  //  Args: $19;
  //  Msg: string;
  //  Severity: TLogMsgSeverity;
  begin
    // TODO: Setup method call parameters
    //FAbstractLogger.LogFmt(Severity, Msg, Args);
    // TODO: Validate method results
  end;
  
  procedure TestTLogger.TestLogVal;
  //var
  //  Vals: $21;
  //  Severity: TLogMsgSeverity;
  begin
    // TODO: Setup method call parameters
    //FAbstractLogger.LogVal(Severity, Vals);
    // TODO: Validate method results
  end;
  
  procedure TestTLogger.TestDebug;
  
negative.code:   CheckTrue(FOutput.LastWrittenLine.Contains(STR_VAL), 'CheckTrue::LastWrittenLine.Contains(STR_VAL)');
    CheckTrue(FOutput.LastWrittenLine.Contains(INT_VAL.ToString), 'CheckTrue::LastWrittenLine.Contains(INT_VAL)');
    CheckTrue(FOutput.LastWrittenLine.Contains(Self.ToString), 'CheckTrue::LastWrittenLine.Contains(Self)');
  end;
  
  procedure TestTLogger.TestEnabled;
  begin
    CheckTrue(SUT.Enabled, 'CheckTrue::Enabled<after set up>');
  
    SUT.SeverityThreshold := SEVERITY_NONE;
    CheckFalse(SUT.Enabled, 'CheckFalse::Enabled<after SEVERITY_NONE>');
  
    SUT.SeverityThreshold := SEVERITY_MAX;
    CheckTrue(SUT.Enabled, 'CheckTrue::Enabled<after SEVERITY_MAX');
  end;
  
  procedure TestTLogger.TestEnterMethod;
  