1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#! /usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;
use Log::Any::Adapter;
use Log::Any '$log';
use File::Basename;
use FindBin;
use lib $FindBin::RealBin;
use TestAdapters;
$log->context->{progname} = basename($0);
$log->context->{pid} = 42;
sub process_file {
my ($file) = @_;
my $log2 = Log::Any->get_logger( category => 'MyApp::FileProcessor' );
$log2->info('Performing work', {file => $file});
}
sub process_dir {
my ($dir) = @_;
my $log1 = Log::Any->get_logger( category => 'MyApp::DirWalker' );
local $log1->context->{directory} = $dir;
local $log1->context->{file} = 'will be overwritten...';
for ( 1 .. 3 ) {
local $log1->context->{pass} = $_;
process_file("$dir/$_");
}
}
Log::Any::Adapter->set('+TestAdapters::Normal');
process_dir('/foo');
{
local $log->context->{pid} = 84;
Log::Any::Adapter->set('+TestAdapters::Structured');
process_dir('/bar');
}
my @expected_text_log = map {
qq(Performing work {directory => "/foo",file => "/foo/$_",pass => $_,pid => 42,progname => "context.t"})
} ( 1 .. 3 );
my @expected_structured_log = map {
{ category => 'MyApp::FileProcessor',
data => [
{ directory => '/bar',
file => "/bar/$_",
pass => $_,
pid => 84,
progname => 'context.t'
}
],
level => 'info',
messages => ['Performing work']
}
} ( 1 .. 3 );
is_deeply( \@TestAdapters::TEXT_LOG, \@expected_text_log,
'text log is correct' );
is_deeply( \@TestAdapters::STRUCTURED_LOG,
\@expected_structured_log, 'structured log is correct' );
|
