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');
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');
34 dLook ma, data: "frew"
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');
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"
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');
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"
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');
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"
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');
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"
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');