t/warnlogger.t

   1 use strict;
   2 use warnings;
   3
   4 use Log::Contextual::WarnLogger;
   5 use Log::Contextual qw{:log set_logger} => -logger =>
   6    Log::Contextual::WarnLogger->new({ env_prefix => 'FOO' });
   7 use Test::More qw(no_plan);
   8 my $l = Log::Contextual::WarnLogger->new({ env_prefix => 'BAR' });
   9
  10 {
  11    local $ENV{BAR_TRACE} = 0;
  12    local $ENV{BAR_DEBUG} = 1;
  13    local $ENV{BAR_INFO} = 0;
  14    local $ENV{BAR_WARN} = 0;
  15    local $ENV{BAR_ERROR} = 0;
  16    local $ENV{BAR_FATAL} = 0;
  17    ok(!$l->is_trace, 'is_trace is false on WarnLogger');
  18    ok($l->is_debug, 'is_debug is true on WarnLogger');
  19    ok(!$l->is_info, 'is_info is false on WarnLogger');
  20    ok(!$l->is_warn, 'is_warn is false on WarnLogger');
  21    ok(!$l->is_error, 'is_error is false on WarnLogger');
  22    ok(!$l->is_fatal, 'is_fatal is false on WarnLogger');
  23 }
  24
  25 {
  26    local $ENV{BAR_UPTO} = 'TRACE';
  27
  28    ok($l->is_trace, 'is_trace is true on WarnLogger');
  29    ok($l->is_debug, 'is_debug is true on WarnLogger');
  30    ok($l->is_info, 'is_info is true on WarnLogger');
  31    ok($l->is_warn, 'is_warn is true on WarnLogger');
  32    ok($l->is_error, 'is_error is true on WarnLogger');
  33    ok($l->is_fatal, 'is_fatal is true on WarnLogger');
  34 }
  35
  36 {
  37    local $ENV{BAR_UPTO} = 'warn';
  38
  39    ok(!$l->is_trace, 'is_trace is false on WarnLogger');
  40    ok(!$l->is_debug, 'is_debug is false on WarnLogger');
  41    ok(!$l->is_info, 'is_info is false on WarnLogger');
  42    ok($l->is_warn, 'is_warn is true on WarnLogger');
  43    ok($l->is_error, 'is_error is true on WarnLogger');
  44    ok($l->is_fatal, 'is_fatal is true on WarnLogger');
  45 }
  46
  47 {
  48    local $ENV{FOO_TRACE} = 0;
  49    local $ENV{FOO_DEBUG} = 1;
  50    local $ENV{FOO_INFO} = 0;
  51    local $ENV{FOO_WARN} = 0;
  52    local $ENV{FOO_ERROR} = 0;
  53    local $ENV{FOO_FATAL} = 0;
  54    ok(eval { log_trace { die 'this should live' }; 1}, 'trace does not get called');
  55    ok(!eval { log_debug { die 'this should die' }; 1}, 'debug gets called');
  56    ok(eval { log_info { die 'this should live' }; 1}, 'info does not get called');
  57    ok(eval { log_warn { die 'this should live' }; 1}, 'warn does not get called');
  58    ok(eval { log_error { die 'this should live' }; 1}, 'error does not get called');
  59    ok(eval { log_fatal { die 'this should live' }; 1}, 'fatal does not get called');
  60 }
  61
  62 {
  63    local $ENV{FOO_TRACE} = 1;
  64    local $ENV{FOO_DEBUG} = 1;
  65    local $ENV{FOO_INFO} = 1;
  66    local $ENV{FOO_WARN} = 1;
  67    local $ENV{FOO_ERROR} = 1;
  68    local $ENV{FOO_FATAL} = 1;
  69    my $cap;
  70    local $SIG{__WARN__} = sub { $cap = shift };
  71
  72    log_debug { 'frew' };
  73    is($cap, "[debug] frew\n", 'WarnLogger outputs to STDERR correctly');
  74    log_trace { 'trace' };
  75    is($cap, "[trace] trace\n", 'trace renders correctly');
  76    log_debug { 'debug' };
  77    is($cap, "[debug] debug\n", 'debug renders correctly');
  78    log_info  { 'info'  };
  79    is($cap, "[info] info\n", 'info renders correctly');
  80    log_warn  { 'warn'  };
  81    is($cap, "[warn] warn\n", 'warn renders correctly');
  82    log_error { 'error' };
  83    is($cap, "[error] error\n", 'error renders correctly');
  84    log_fatal { 'fatal' };
  85    is($cap, "[fatal] fatal\n", 'fatal renders correctly');
  86
  87 }