From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BLOONIX / Log-Handler-0.63 / t / 014-handler-reload.t 

            

              
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133

              
use strict;
use warnings;
use Test::More tests => 19;
use Log::Handler;
my %msg;
sub counter {
    if (shift->{message} =~ /(INFO|WARN).+(unknown\d|forward\d)/) {
        $msg{$2}{$1}++;
    }
}
my $log = Log::Handler->new();
$log->config(
    config => {
        forward => [
            {
                alias    => "forward1",
                maxlevel => "info",
                minlevel => "emerg",
                priority => 2,
                forward_to     => \&counter,
                message_layout => "%L - forward1 %m",
            },
            {
                alias    => "forward2",
                maxlevel => "info",
                minlevel => "emerg",
                priority => 1,
                forward_to     => \&counter,
                message_layout => "%L - forward2 %m",
            },
            {
                alias    => "forward3",
                maxlevel => "info",
                minlevel => "emerg",
                priority => 3,
                forward_to     => \&counter,
                message_layout => "%L - forward3 %m",
            },
            {
                maxlevel => "info",
                minlevel => "emerg",
                priority => 3,
                forward_to     => \&counter,
                message_layout => "%L - unknown1 %m",
            },
        ],
    },
);
$log->warning(1);
$log->info(1);
$log->reload(
    config => {
        forward => [
            {
                alias    => "forward1",
                maxlevel => "warning",
                minlevel => "emerg",
                priority => 2,
                forward_to     => \&counter,
                message_layout => "%T [%L] forward1 %m",
            },
            {
                alias    => "forward3",
                maxlevel => "warning",
                minlevel => "emerg",
                priority => 1,
                forward_to     => \&counter,
                message_layout => "%T [%L] forward3 %m",
            },
            {
                alias    => "forward4",
                maxlevel => "warning",
                minlevel => "emerg",
                priority => 1,
                forward_to     => \&counter,
                message_layout => "%T [%L] forward4 %m",
            },
            {
                alias    => "forward5",
                maxlevel => "warning",
                minlevel => "emerg",
                priority => 1,
                forward_to     => \&counter,
                message_layout => "%T [%L] forward5 %m",
            },
            {
                maxlevel => "warning",
                minlevel => "emerg",
                priority => 3,
                forward_to     => \&counter,
                message_layout => "%L - unknown2 %m",
            },
        ],
    }
) or die $log->errstr;
ok(1, "reload");
$log->warning(1);
$log->info(1);
my $f1 = scalar keys %{$msg{forward1}};
my $f2 = scalar keys %{$msg{forward2}};
my $f3 = scalar keys %{$msg{forward3}};
my $f4 = scalar keys %{$msg{forward4}};
my $f5 = scalar keys %{$msg{forward5}};
ok($f1 == 2, "checking forward1 keys ($f1)");
ok($f2 == 2, "checking forward2 keys ($f2)");
ok($f3 == 2, "checking forward3 keys ($f3)");
ok($f4 == 1, "checking forward4 keys ($f4)");
ok($f5 == 1, "checking forward5 keys ($f5)");
ok($msg{forward1}{INFO} == 1, "checking forward1 INFO ($msg{forward1}{INFO})");
ok($msg{forward1}{WARN} == 2, "checking forward1 WARN ($msg{forward1}{WARN})");
ok($msg{forward2}{INFO} == 1, "checking forward2 INFO ($msg{forward2}{INFO})");
ok($msg{forward2}{WARN} == 1, "checking forward2 WARN ($msg{forward2}{WARN})");
ok($msg{forward3}{INFO} == 1, "checking forward3 INFO ($msg{forward3}{INFO})");
ok($msg{forward3}{WARN} == 2, "checking forward3 WARN ($msg{forward3}{WARN})");
ok($msg{forward4}{WARN} == 1, "checking forward3 WARN ($msg{forward4}{WARN})");
ok($msg{forward5}{WARN} == 1, "checking forward3 WARN ($msg{forward5}{WARN})");
ok($msg{forward5}{WARN} == 1, "checking forward3 WARN ($msg{forward5}{WARN})");
ok($msg{unknown1}{INFO} == 1, "checking unknown1 INFO ($msg{unknown1}{INFO})");
ok($msg{unknown1}{WARN} == 1, "checking unknown1 INFO ($msg{unknown1}{WARN})");
ok($msg{unknown2}{WARN} == 1, "checking unknown2 INFO ($msg{unknown1}{WARN})");
ok(!exists $msg{unknown2}{INFO}, "checking unknown2 INFO");