4 use Log::Contextual::SimpleLogger;
5 use Test::More 'no_plan';
9 my @levels = qw(debug trace warn info error fatal);
12 $var_log = Log::Contextual::SimpleLogger->new({
13 levels => [qw(trace debug info warn error fatal)],
14 coderef => sub { $var = shift }
18 use Log::Contextual qw{:dlog}, -logger => $var_log;
20 for my $level (@levels) {
23 main->can("Dlog_$level")->(sub { "Look ma, data: $_" }, qw{frew bar baz});
25 eq_array(\@foo, [qw{frew bar baz}]),
26 "Dlog_$level passes data through correctly"
30 qq([$level] Look ma, data: "frew"\n"bar"\n"baz"\n),
31 "Output for Dlog_$level is correct"
35 main->can("DlogS_$level")
36 ->(sub { "Look ma, data: $_" }, [qw{frew bar baz}]);
38 eq_array($bar, [qw{frew bar baz}]),
39 'DlogS_trace passes data through correctly'
43 qq([$level] Look ma, data: [\n "frew",\n "bar",\n "baz"\n]\n),
44 "Output for DlogS_$level is correct"
47 @foo = main->can("Dlog_$level")->(sub { "nothing: $_" }, ());
48 ok(eq_array(\@foo, []), "Dlog_$level passes nothing through correctly");
49 is($var, "[$level] nothing: ()\n", "Output for Dlog_$level is correct");