Commit | Line | Data |
d145d900 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use lib 't/lib'; |
5 | use VarLogger; |
6 | use Test::More 'no_plan'; |
7 | |
f11f9542 |
8 | use Log::Contextual qw{:dlog set_logger}; |
d145d900 |
9 | |
10 | my $var_log = VarLogger->new; |
11 | |
12 | set_logger(sub { $var_log }); |
13 | my @foo = Dlog_debug { "Look ma, data: $_" } qw{frew bar baz}; |
14 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_debug passes data through correctly'); |
15 | is( $var_log->var, <<'OUT', 'Output for Dlog_debug is correct'); |
16 | Look ma, data: "frew" |
17 | "bar" |
18 | "baz" |
19 | OUT |
20 | my $bar = DlogS_debug { "Look ma, data: $_" } [qw{frew bar baz}]; |
21 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_debug passes data through correctly'); |
22 | is( $var_log->var, <<'OUT', 'Output for DlogS_debug is correct'); |
23 | Look ma, data: [ |
24 | "frew", |
25 | "bar", |
26 | "baz" |
27 | ] |
28 | OUT |
29 | |