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; |
0f7a70e7 |
11 | |
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 |
29 | |
d145d900 |
30 | |
d145d900 |
31 | my @foo = Dlog_debug { "Look ma, data: $_" } qw{frew bar baz}; |
32 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_debug passes data through correctly'); |
33 | is( $var_log->var, <<'OUT', 'Output for Dlog_debug is correct'); |
73c0f681 |
34 | dLook ma, data: "frew" |
d145d900 |
35 | "bar" |
36 | "baz" |
37 | OUT |
0f7a70e7 |
38 | |
d145d900 |
39 | my $bar = DlogS_debug { "Look ma, data: $_" } [qw{frew bar baz}]; |
40 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_debug passes data through correctly'); |
41 | is( $var_log->var, <<'OUT', 'Output for DlogS_debug is correct'); |
73c0f681 |
42 | dLook ma, data: [ |
d145d900 |
43 | "frew", |
44 | "bar", |
45 | "baz" |
46 | ] |
47 | OUT |
48 | |
0f7a70e7 |
49 | |
50 | my @foo = Dlog_info { "Look ma, data: $_" } qw{frew bar baz}; |
51 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_info passes data through correctly'); |
52 | is( $var_log->var, <<'OUT', 'Output for Dlog_info is correct'); |
53 | iLook ma, data: "frew" |
54 | "bar" |
55 | "baz" |
56 | OUT |
57 | |
58 | my $bar = DlogS_info { "Look ma, data: $_" } [qw{frew bar baz}]; |
59 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_info passes data through correctly'); |
60 | is( $var_log->var, <<'OUT', 'Output for DlogS_info is correct'); |
61 | iLook ma, data: [ |
62 | "frew", |
63 | "bar", |
64 | "baz" |
65 | ] |
66 | OUT |
67 | |
68 | |
69 | my @foo = Dlog_warn { "Look ma, data: $_" } qw{frew bar baz}; |
70 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_warn passes data through correctly'); |
71 | is( $var_log->var, <<'OUT', 'Output for Dlog_warn is correct'); |
72 | wLook ma, data: "frew" |
73 | "bar" |
74 | "baz" |
75 | OUT |
76 | |
77 | my $bar = DlogS_warn { "Look ma, data: $_" } [qw{frew bar baz}]; |
78 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_warn passes data through correctly'); |
79 | is( $var_log->var, <<'OUT', 'Output for DlogS_warn is correct'); |
80 | wLook ma, data: [ |
81 | "frew", |
82 | "bar", |
83 | "baz" |
84 | ] |
85 | OUT |
86 | |
87 | |
88 | my @foo = Dlog_error { "Look ma, data: $_" } qw{frew bar baz}; |
89 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_error passes data through correctly'); |
90 | is( $var_log->var, <<'OUT', 'Output for Dlog_error is correct'); |
91 | eLook ma, data: "frew" |
92 | "bar" |
93 | "baz" |
94 | OUT |
95 | |
96 | my $bar = DlogS_error { "Look ma, data: $_" } [qw{frew bar baz}]; |
97 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_error passes data through correctly'); |
98 | is( $var_log->var, <<'OUT', 'Output for DlogS_error is correct'); |
99 | eLook ma, data: [ |
100 | "frew", |
101 | "bar", |
102 | "baz" |
103 | ] |
104 | OUT |
105 | |
106 | |
107 | my @foo = Dlog_fatal { "Look ma, data: $_" } qw{frew bar baz}; |
108 | ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_fatal passes data through correctly'); |
109 | is( $var_log->var, <<'OUT', 'Output for Dlog_fatal is correct'); |
110 | fLook ma, data: "frew" |
111 | "bar" |
112 | "baz" |
113 | OUT |
114 | |
115 | my $bar = DlogS_fatal { "Look ma, data: $_" } [qw{frew bar baz}]; |
116 | ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_fatal passes data through correctly'); |
117 | is( $var_log->var, <<'OUT', 'Output for DlogS_fatal is correct'); |
118 | fLook ma, data: [ |
119 | "frew", |
120 | "bar", |
121 | "baz" |
122 | ] |
123 | OUT |
124 | |