perltidy code and add .perltidyrc to repo
[p5sagit/Log-Contextual.git] / 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
8 my @levels = qw(debug trace warn info error fatal);
9
10 my $var1;
11 my $var2;
12 my $var3;
13 my $var_logger1 = Log::Contextual::SimpleLogger->new({
14       levels  => [qw(trace debug info warn error fatal)],
15       coderef => sub { $var1 = shift },
16 });
17
18 my $var_logger2 = Log::Contextual::SimpleLogger->new({
19       levels  => [qw(trace debug info warn error fatal)],
20       coderef => sub { $var2 = shift },
21 });
22
23 my $var_logger3 = Log::Contextual::SimpleLogger->new({
24       levels  => [qw(trace debug info warn error fatal)],
25       coderef => sub { $var3 = shift },
26 });
27
28 SETLOGGER: {
29    set_logger(sub { $var_logger3 });
30    log_debug { 'set_logger' };
31    is($var3, "[debug] set_logger\n", 'set logger works');
32 }
33
34 SETLOGGERTWICE: {
35    my $foo;
36    local $SIG{__WARN__} = sub { $foo = shift };
37    set_logger(sub { $var_logger3 });
38    like(
39       $foo,
40       qr/set_logger \(or -logger\) called more than once!  This is a bad idea! at/,
41       'set_logger twice warns correctly'
42    );
43 }
44
45 WITHLOGGER: {
46    with_logger sub { $var_logger2 } => sub {
47
48       with_logger $var_logger1 => sub {
49          log_debug { 'nothing!' }
50       };
51       log_debug { 'frew!' };
52
53    };
54
55    is($var1, "[debug] nothing!\n", 'inner scoped logger works');
56    is($var2, "[debug] frew!\n",    'outer scoped logger works');
57 }
58
59 SETWITHLOGGER: {
60    with_logger $var_logger1 => sub {
61       log_debug { 'nothing again!' };
62
63       # do this just so the following set_logger won't warn
64       local $SIG{__WARN__} = sub { };
65       set_logger(sub { $var_logger3 });
66       log_debug { 'this is a set inside a with' };
67    };
68
69    is(
70       $var1,
71       "[debug] nothing again!\n",
72       'inner scoped logger works after using set_logger'
73    );
74
75    is($var3, "[debug] this is a set inside a with\n", 'set inside with works');
76
77    log_debug { 'frioux!' };
78    is(
79       $var3,
80       "[debug] frioux!\n",
81       q{set_logger's logger comes back after scoped logger}
82    );
83 }
84
85 VANILLA: {
86    for (@levels) {
87       main->can("log_$_")->(sub { 'fiSMBoC' });
88       is($var3, "[$_] fiSMBoC\n", "$_ works");
89
90       my @vars =
91         main->can("log_$_")->(sub { 'fiSMBoC: ' . $_[1] }, qw{foo bar baz});
92       is($var3, "[$_] fiSMBoC: bar\n", "log_$_ works with input");
93       ok(
94          eq_array(\@vars, [qw{foo bar baz}]),
95          "log_$_ passes data through correctly"
96       );
97
98       my $val = main->can("logS_$_")->(sub { 'fiSMBoC: ' . $_[0] }, 'foo');
99       is($var3, "[$_] fiSMBoC: foo\n", "logS_$_ works with input");
100       is($val, 'foo', "logS_$_ passes data through correctly");
101    }
102 }
103
104 ok(!eval { Log::Contextual->import; 1 }, 'Blank Log::Contextual import dies');
105