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