Commit | Line | Data |
7cec609c |
1 | use strict; |
2 | use warnings; |
3 | |
c19d7bee |
4 | use lib 't/lib'; |
5 | use VarLogger; |
f11f9542 |
6 | use Log::Contextual qw{:log with_logger set_logger}; |
7cec609c |
7 | use Test::More qw(no_plan); |
f8c96d08 |
8 | my $var_logger1 = VarLogger->new; |
9 | my $var_logger2 = VarLogger->new; |
c19d7bee |
10 | my $var_logger3 = VarLogger->new; |
7cec609c |
11 | |
c19d7bee |
12 | WITHLOGGER: { |
98833ffb |
13 | with_logger sub { $var_logger2 } => sub { |
7cec609c |
14 | |
98833ffb |
15 | with_logger $var_logger1 => sub { |
c19d7bee |
16 | log_debug { 'nothing!' } |
80c3e48b |
17 | }; |
c19d7bee |
18 | log_debug { 'frew!' }; |
2033c911 |
19 | |
80c3e48b |
20 | }; |
2033c911 |
21 | |
73c0f681 |
22 | is( $var_logger1->var, 'dnothing!', 'inner scoped logger works' ); |
23 | is( $var_logger2->var, 'dfrew!', 'outer scoped logger works' ); |
c19d7bee |
24 | } |
25 | |
26 | SETLOGGER: { |
27 | set_logger(sub { $var_logger3 }); |
28 | log_debug { 'set_logger' }; |
73c0f681 |
29 | is( $var_logger3->var, 'dset_logger', 'set logger works' ); |
c19d7bee |
30 | } |
31 | |
32 | SETWITHLOGGER: { |
98833ffb |
33 | with_logger $var_logger1 => sub { |
c19d7bee |
34 | log_debug { 'nothing again!' } |
80c3e48b |
35 | }; |
c19d7bee |
36 | |
73c0f681 |
37 | is( $var_logger1->var, 'dnothing again!', |
c19d7bee |
38 | 'inner scoped logger works after using set_logger' |
39 | ); |
40 | |
41 | log_debug { 'frioux!' }; |
73c0f681 |
42 | is( $var_logger3->var, 'dfrioux!', |
c19d7bee |
43 | q{set_logger's logger comes back after scoped logger} |
44 | ); |
2033c911 |
45 | } |
f8c96d08 |
46 | |
47 | ok(!eval { Log::Contextual->import; 1 }, 'Blank Log::Contextual import dies'); |