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
|
#!/usr/bin/env perl
# Try constructing a message object
use warnings;
use strict;
use Test::More;
use Scalar::Util 'refaddr';
use Log::Report;
use Log::Report::Message;
### direct creation
my $msg = Log::Report::Message->new(
_msgid => 'try',
_domain => 'test',
_tags => 'monkey, donkey',
var => 42,
);
ok(defined $msg, 'created message manually');
isa_ok($msg, 'Log::Report::Message');
is($msg->msgid, 'try');
is($msg->domain, 'test');
is($msg->valueOf('_domain'), 'test');
is($msg->valueOf('var'), 42);
my @c = $msg->tags;
cmp_ok(scalar @c, '==', 2, 'list tags');
is($c[0], 'monkey');
is($c[1], 'donkey');
ok($msg->taggedWith('monkey'), 'taggedWith');
ok($msg->taggedWith('donkey'));
is($msg->taggedWith( qr/^d/ ), 'donkey');
is($msg->taggedWith( qr/key/ ), 'monkey');
### indirect creation, non-translated
try { report ERROR => 'not translated', _tags => 'one two' };
my $err = $@;
isa_ok($err, 'Log::Report::Dispatcher::Try');
my $fatal = $err->wasFatal;
isa_ok($fatal, 'Log::Report::Exception');
my $message = $fatal->message;
isa_ok($message, 'Log::Report::Message');
is("$message", 'not translated', 'untranslated');
is($message->taggedWith('one'), 'one');
is($message->taggedWith('two'), 'two');
is($fatal->taggedWith('two'), 'two');
my $fatal2 = $err->wasFatal(tag => 'two');
isa_ok($fatal2, 'Log::Report::Exception');
cmp_ok(refaddr $fatal, '==', refaddr $fatal2);
done_testing;
|
