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
|
use warnings;
use strict;
use Test::More;
use Test::Exception;
use Log::Fast;
plan tests => 17;
my $LOG = Log::Fast->global();
lives_ok { Log::Fast->new({}) };
lives_ok { Log::Fast->new() };
throws_ok { Log::Fast->new([]) } qr/HASHREF/;
lives_ok { $LOG->config({}) };
throws_ok { $LOG->config() } qr/HASHREF/;
throws_ok { $LOG->config([]) } qr/HASHREF/;
lives_ok { $LOG->config({prefix=>q{}}) };
throws_ok { $LOG->config({preFix=>q{}}) } qr/unknown option/;
throws_ok { $LOG->config({level=>'InFo'}) } qr/{level}/;
lives_ok { $LOG->config({level=>'INFO'}) };
throws_ok { $LOG->level('InFo') } qr/{level}/;
lives_ok { $LOG->level('INFO') };
SKIP: {
eval {
use File::Temp qw( tempfile );
use Socket;
(undef, my $tempfile) = tempfile();
unlink $tempfile;
socket my $sock, AF_UNIX, SOCK_DGRAM, 0 or die "socket: $!";
connect $sock, sockaddr_un($tempfile) or die "connect: $!";
unlink $tempfile;
};
skip 'no UNIX sockets available', 2 if $@;
SKIP: {
use Sys::Syslog ();
my $path = Sys::Syslog::_PATH_LOG() || '/dev/log';
skip 'unable to detect syslog socket', 1 if !-S $path;
lives_ok { $LOG->config({type=>'unix',path=>$path}) };
}
throws_ok { $LOG->config({type=>'unix',path=>'nosuch'}) } qr/connect:/;
}
throws_ok { $LOG->config({type=>'Fh',fh=>\*NOSUCH}) } qr/{type}/;
lives_ok { $LOG->config({type=>'fh',fh=>\*NOSUCH}) };
throws_ok { $SIG{__WARN__}=sub{}; $LOG->ERR('test') } qr/print/;
|
