anchor.diff:  procedure CreateLogger(var ALogger: ISvLogger);
   begin
     FLogger := ALogger;
  +end;
  +
  +procedure CreateMockLogger;
  +begin
  +  FLogger := TSvMockLogger.Create;
   end;
   
   { TSvBaseLogger }
  
positive.code:   Log(TSvLogLevel.Warn, AMessage, AException);
  end;
  
  end.
  
negative.code:     property Level: TSvLogLevel read GetLevel write SetLevel;
    end;
  
    TSvMockLogger = class(TSvBaseLogger)
    private
      FLogLevel: TSvLogLevel;
    protected
      function GetLevel: TSvLogLevel; override;
      procedure SetLevel(const Value: TSvLogLevel); override;
    public
      procedure Log(ALevel: TSvLogLevel; const AMessage: string; AException: Exception = nil); override;
    end;
  
  
  function Logger(): ISvLogger;
  
  procedure CreateLogger(var ALogger: ISvLogger);
  procedure CreateMockLogger;
  
  implementation
  
  