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
|
#!./perl
###########################################################################
#
# tags.t
#
# Copyright (C) 1999-2000 Raphael Manfredi.
# Copyright (C) 2015 Mark Rogaski, mrogaski@cpan.org;
# all rights reserved.
#
# See the README file included with the
# distribution for license information.
#
##########################################################################
print "1..2\n";
require 't/code.pl';
sub ok;
sub cleanlog() {
unlink <t/logfile*>;
}
require Log::Agent::Channel::File;
require Log::Agent::Logger;
require Log::Agent::Tag::String;
cleanlog;
my $file = "t/logfile";
my $channel = Log::Agent::Channel::File->make(
-prefix => "foo",
-stampfmt => "own",
-showpid => 1,
-filename => $file,
-share => 1,
);
my $t1 = Log::Agent::Tag::String->make(-value => "<tag #1>");
my $t2 = Log::Agent::Tag::String->make(-value => "<tag #2>", -postfix => 1);
my $log = Log::Agent::Logger->make(
-channel => $channel,
-max_prio => 'info',
-tags => [$t1],
);
$log->err("error string");
$log->tags->append($t2);
$log->warn("warn string");
ok 1, contains($file, '<tag #1> error string');
ok 2, contains($file, '<tag #1> warn string <tag #2>');
cleanlog;
|
