t/log.t

   1 use strict;
   2 use warnings;
   3
   4 use Log::Contextual qw{:log with_logger set_logger};
   5 use Log::Contextual::SimpleLogger;
   6 use Test::More qw(no_plan);
   7 my $var1;
   8 my $var2;
   9 my $var3;
  10 my $var_logger1 = Log::Contextual::SimpleLogger->new({
  11    levels  => [qw(trace debug info warn error fatal)],
  12    coderef => sub { $var1 = shift },
  13 });
  14
  15 my $var_logger2 = Log::Contextual::SimpleLogger->new({
  16    levels  => [qw(trace debug info warn error fatal)],
  17    coderef => sub { $var2 = shift },
  18 });
  19
  20 my $var_logger3 = Log::Contextual::SimpleLogger->new({
  21    levels  => [qw(trace debug info warn error fatal)],
  22    coderef => sub { $var3 = shift },
  23 });
  24
  25 WITHLOGGER: {
  26    with_logger sub { $var_logger2 } => sub {
  27
  28       with_logger $var_logger1 => sub {
  29          log_debug { 'nothing!' }
  30       };
  31       log_debug { 'frew!' };
  32
  33    };
  34
  35    is( $var1, "[debug] nothing!\n", 'inner scoped logger works' );
  36    is( $var2, "[debug] frew!\n", 'outer scoped logger works' );
  37 }
  38
  39 SETLOGGER: {
  40    set_logger(sub { $var_logger3 });
  41    log_debug { 'set_logger' };
  42    is( $var3, "[debug] set_logger\n", 'set logger works' );
  43 }
  44
  45 SETWITHLOGGER: {
  46    with_logger $var_logger1 => sub {
  47       log_debug { 'nothing again!' };
  48       set_logger(sub { $var_logger3 });
  49       log_debug { 'this is a set inside a with' };
  50    };
  51
  52    is( $var1, "[debug] nothing again!\n",
  53       'inner scoped logger works after using set_logger'
  54    );
  55
  56    is( $var3, "[debug] this is a set inside a with\n",
  57       'set inside with works'
  58    );
  59
  60    log_debug { 'frioux!' };
  61    is( $var3, "[debug] frioux!\n",
  62       q{set_logger's logger comes back after scoped logger}
  63    );
  64 }
  65
  66 VANILLA: {
  67    log_trace { 'fiSMBoC' };
  68    is( $var3, "[trace] fiSMBoC\n", 'trace works');
  69
  70    log_debug { 'fiSMBoC' };
  71    is( $var3, "[debug] fiSMBoC\n", 'debug works');
  72
  73    log_info { 'fiSMBoC' };
  74    is( $var3, "[info] fiSMBoC\n", 'info works');
  75
  76    log_warn { 'fiSMBoC' };
  77    is( $var3, "[warn] fiSMBoC\n", 'warn works');
  78
  79    log_error { 'fiSMBoC' };
  80    is( $var3, "[error] fiSMBoC\n", 'error works');
  81
  82    log_fatal { 'fiSMBoC' };
  83    is( $var3, "[fatal] fiSMBoC\n", 'fatal works');
  84
  85 }
  86
  87 ok(!eval { Log::Contextual->import; 1 }, 'Blank Log::Contextual import dies');
  88
  89 PASSTHROUGH: {
  90    my @vars;
  91
  92    @vars = log_trace { 'fiSMBoC: ' . $_[1] } qw{foo bar baz};
  93    is( $var3, "[trace] fiSMBoC: bar\n", 'log_trace works with input');
  94    ok( eq_array(\@vars, [qw{foo bar baz}]), 'log_trace passes data through correctly');
  95
  96    @vars = log_debug { 'fiSMBoC: ' . $_[1] } qw{foo bar baz};
  97    is( $var3, "[debug] fiSMBoC: bar\n", 'log_debug works with input');
  98    ok( eq_array(\@vars, [qw{foo bar baz}]), 'log_debug passes data through correctly');
  99
 100    @vars = log_info { 'fiSMBoC: ' . $_[1] } qw{foo bar baz};
 101    is( $var3, "[info] fiSMBoC: bar\n", 'log_info works with input');
 102    ok( eq_array(\@vars, [qw{foo bar baz}]), 'log_info passes data through correctly');
 103
 104    @vars = log_warn { 'fiSMBoC: ' . $_[1] } qw{foo bar baz};
 105    is( $var3, "[warn] fiSMBoC: bar\n", 'log_warn works with input');
 106    ok( eq_array(\@vars, [qw{foo bar baz}]), 'log_warn passes data through correctly');
 107
 108    @vars = log_error { 'fiSMBoC: ' . $_[1] } qw{foo bar baz};
 109    is( $var3, "[error] fiSMBoC: bar\n", 'log_error works with input');
 110    ok( eq_array(\@vars, [qw{foo bar baz}]), 'log_error passes data through correctly');
 111
 112    @vars = log_fatal { 'fiSMBoC: ' . $_[1] } qw{foo bar baz};
 113    is( $var3, "[fatal] fiSMBoC: bar\n", 'log_fatal works with input');
 114    ok( eq_array(\@vars, [qw{foo bar baz}]), 'log_fatal passes data through correctly');
 115
 116
 117
 118    my $val;
 119    $val = logS_trace { 'fiSMBoC: ' . $_[0] } 'foo';
 120    is( $var3, "[trace] fiSMBoC: foo\n", 'logS_trace works with input');
 121    is( $val, 'foo', 'logS_trace passes data through correctly');
 122
 123    $val = logS_debug { 'fiSMBoC: ' . $_[0] } 'foo';
 124    is( $var3, "[debug] fiSMBoC: foo\n", 'logS_debug works with input');
 125    is( $val, 'foo', 'logS_debug passes data through correctly');
 126
 127    $val = logS_info { 'fiSMBoC: ' . $_[0] } 'foo';
 128    is( $var3, "[info] fiSMBoC: foo\n", 'logS_info works with input');
 129    is( $val, 'foo', 'logS_info passes data through correctly');
 130
 131    $val = logS_warn { 'fiSMBoC: ' . $_[0] } 'foo';
 132    is( $var3, "[warn] fiSMBoC: foo\n", 'logS_warn works with input');
 133    is( $val, 'foo', 'logS_warn passes data through correctly');
 134
 135    $val = logS_error { 'fiSMBoC: ' . $_[0] } 'foo';
 136    is( $var3, "[error] fiSMBoC: foo\n", 'logS_error works with input');
 137    is( $val, 'foo', 'logS_error passes data through correctly');
 138
 139    $val = logS_fatal { 'fiSMBoC: ' . $_[0] } 'foo';
 140    is( $var3, "[fatal] fiSMBoC: foo\n", 'logS_fatal works with input');
 141    is( $val, 'foo', 'logS_fatal passes data through correctly');
 142
 143    ok(!eval "logS_error { 'frew' } 'bar', 'baz'; 1", 'logS_$level dies from too many args');
 144 }