6 use Test::More 'no_plan';
9 BEGIN { $var_log = VarLogger->new }
10 use Log::Contextual qw{:dlog}, -logger => $var_log;
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"
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');
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');
36 dLook ma, data: "frew"
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');
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"
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');
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"
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');
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"
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');
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"
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');
139 my @foo = Dlog_trace { "nothing: $_" } ();
140 ok( eq_array(\@foo, []), 'Dlog_trace passes nothing through correctly');
141 is( $var_log->var, 'tnothing: ()', 'Output for Dlog_trace is correct');
145 my @foo = Dlog_debug { "nothing: $_" } ();
146 ok( eq_array(\@foo, []), 'Dlog_debug passes nothing through correctly');
147 is( $var_log->var, 'dnothing: ()', 'Output for Dlog_debug is correct');
151 my @foo = Dlog_info { "nothing: $_" } ();
152 ok( eq_array(\@foo, []), 'Dlog_info passes nothing through correctly');
153 is( $var_log->var, 'inothing: ()', 'Output for Dlog_info is correct');
157 my @foo = Dlog_warn { "nothing: $_" } ();
158 ok( eq_array(\@foo, []), 'Dlog_warn passes nothing through correctly');
159 is( $var_log->var, 'wnothing: ()', 'Output for Dlog_warn is correct');
163 my @foo = Dlog_error { "nothing: $_" } ();
164 ok( eq_array(\@foo, []), 'Dlog_error passes nothing through correctly');
165 is( $var_log->var, 'enothing: ()', 'Output for Dlog_error is correct');
169 my @foo = Dlog_fatal { "nothing: $_" } ();
170 ok( eq_array(\@foo, []), 'Dlog_fatal passes nothing through correctly');
171 is( $var_log->var, 'fnothing: ()', 'Output for Dlog_fatal is correct');