blob: d852fea12391064af080ea00c752b6d714eb560e (
plain) (
blame)
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
|
#!/usr/bin/env perl
use strict;
use warnings;
use lib 't/lib';
use Test::More tests => 4;
use Test::Exception;
use Log::Dispatch::Channels;
use Log::Dispatch::ToString;
my $logger = Log::Dispatch::Channels->new;
for my $channel (1..3) {
$logger->add_channel($channel);
$logger->add(Log::Dispatch::ToString->new(name => $channel,
min_level => 'debug'),
channels => $channel);
}
throws_ok { $logger->log_and_die(channels => 1,
level => 'debug',
message => 'log_and_die') }
qr/^log_and_die/,
"log_and_die dies with the proper message";
is($logger->output(1)->get_string, "log_and_die",
"log_and_die logs the proper message");
throws_ok { $logger->log_and_croak(channels => 2,
level => 'debug',
message => 'log_and_croak') }
qr/^log_and_croak/,
"log_and_croak dies with the proper message";
is($logger->output(2)->get_string, "log_and_croak",
"log_and_croak logs the proper message");
|