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'; |
3dc9bd3c |
7 | my $var_log; |
d145d900 |
8 | |
3dc9bd3c |
9 | BEGIN { $var_log = VarLogger->new } |
10 | use Log::Contextual qw{:dlog}, -logger => $var_log; |
2580df54 |
11 | { |
0f7a70e7 |
12 | my @foo = Dlog_trace { "Look ma, data: $_" } qw{frew bar baz}; |
13 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_trace passes data through correctly'); |
14 | is( $var_log->var, <<'OUT', 'Output for Dlog_trace is correct'); |
15 | tLook ma, data: "frew" |
16 | "bar" |
17 | "baz" |
18 | OUT |
19 | |
20 | my $bar = DlogS_trace { "Look ma, data: $_" } [qw{frew bar baz}]; |
21 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_trace passes data through correctly'); |
22 | is( $var_log->var, <<'OUT', 'Output for DlogS_trace is correct'); |
23 | tLook ma, data: [ |
24 | "frew", |
25 | "bar", |
26 | "baz" |
27 | ] |
28 | OUT |
2580df54 |
29 | } |
0f7a70e7 |
30 | |
d145d900 |
31 | |
2580df54 |
32 | { |
d145d900 |
33 | my @foo = Dlog_debug { "Look ma, data: $_" } qw{frew bar baz}; |
34 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_debug passes data through correctly'); |
35 | is( $var_log->var, <<'OUT', 'Output for Dlog_debug is correct'); |
73c0f681 |
36 | dLook ma, data: "frew" |
d145d900 |
37 | "bar" |
38 | "baz" |
39 | OUT |
0f7a70e7 |
40 | |
d145d900 |
41 | my $bar = DlogS_debug { "Look ma, data: $_" } [qw{frew bar baz}]; |
42 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_debug passes data through correctly'); |
43 | is( $var_log->var, <<'OUT', 'Output for DlogS_debug is correct'); |
73c0f681 |
44 | dLook ma, data: [ |
d145d900 |
45 | "frew", |
46 | "bar", |
47 | "baz" |
48 | ] |
49 | OUT |
2580df54 |
50 | } |
d145d900 |
51 | |
0f7a70e7 |
52 | |
2580df54 |
53 | { |
0f7a70e7 |
54 | my @foo = Dlog_info { "Look ma, data: $_" } qw{frew bar baz}; |
55 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_info passes data through correctly'); |
56 | is( $var_log->var, <<'OUT', 'Output for Dlog_info is correct'); |
57 | iLook ma, data: "frew" |
58 | "bar" |
59 | "baz" |
60 | OUT |
61 | |
62 | my $bar = DlogS_info { "Look ma, data: $_" } [qw{frew bar baz}]; |
63 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_info passes data through correctly'); |
64 | is( $var_log->var, <<'OUT', 'Output for DlogS_info is correct'); |
65 | iLook ma, data: [ |
66 | "frew", |
67 | "bar", |
68 | "baz" |
69 | ] |
70 | OUT |
2580df54 |
71 | } |
0f7a70e7 |
72 | |
73 | |
2580df54 |
74 | { |
0f7a70e7 |
75 | my @foo = Dlog_warn { "Look ma, data: $_" } qw{frew bar baz}; |
76 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_warn passes data through correctly'); |
77 | is( $var_log->var, <<'OUT', 'Output for Dlog_warn is correct'); |
78 | wLook ma, data: "frew" |
79 | "bar" |
80 | "baz" |
81 | OUT |
82 | |
83 | my $bar = DlogS_warn { "Look ma, data: $_" } [qw{frew bar baz}]; |
84 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_warn passes data through correctly'); |
85 | is( $var_log->var, <<'OUT', 'Output for DlogS_warn is correct'); |
86 | wLook ma, data: [ |
87 | "frew", |
88 | "bar", |
89 | "baz" |
90 | ] |
91 | OUT |
2580df54 |
92 | } |
0f7a70e7 |
93 | |
94 | |
2580df54 |
95 | { |
0f7a70e7 |
96 | my @foo = Dlog_error { "Look ma, data: $_" } qw{frew bar baz}; |
97 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_error passes data through correctly'); |
98 | is( $var_log->var, <<'OUT', 'Output for Dlog_error is correct'); |
99 | eLook ma, data: "frew" |
100 | "bar" |
101 | "baz" |
102 | OUT |
103 | |
104 | my $bar = DlogS_error { "Look ma, data: $_" } [qw{frew bar baz}]; |
105 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_error passes data through correctly'); |
106 | is( $var_log->var, <<'OUT', 'Output for DlogS_error is correct'); |
107 | eLook ma, data: [ |
108 | "frew", |
109 | "bar", |
110 | "baz" |
111 | ] |
112 | OUT |
2580df54 |
113 | } |
0f7a70e7 |
114 | |
115 | |
2580df54 |
116 | { |
0f7a70e7 |
117 | my @foo = Dlog_fatal { "Look ma, data: $_" } qw{frew bar baz}; |
118 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_fatal passes data through correctly'); |
119 | is( $var_log->var, <<'OUT', 'Output for Dlog_fatal is correct'); |
120 | fLook ma, data: "frew" |
121 | "bar" |
122 | "baz" |
123 | OUT |
124 | |
125 | my $bar = DlogS_fatal { "Look ma, data: $_" } [qw{frew bar baz}]; |
126 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_fatal passes data through correctly'); |
127 | is( $var_log->var, <<'OUT', 'Output for DlogS_fatal is correct'); |
128 | fLook ma, data: [ |
129 | "frew", |
130 | "bar", |
131 | "baz" |
132 | ] |
133 | OUT |
2580df54 |
134 | } |