Commit | Line | Data |
34b7e82b |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
20822f61 |
5 | @INC = '../lib'; |
34b7e82b |
6 | require Config; import Config; |
7 | if ($Config{'extensions'} !~ /\bSyslog\b/) { |
8 | print "1..0 # Skip: Sys::Syslog was not built\n"; |
9 | exit 0; |
10 | } |
1b31946b |
11 | |
12 | require Socket; |
13 | |
14 | # This code inspired by Sys::Syslog::connect(): |
15 | require Sys::Hostname; |
16 | my ($host_uniq) = Sys::Hostname::hostname(); |
17 | my ($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; |
18 | |
19 | if (! defined Socket::inet_aton($host)) { |
20 | print "1..0 # Skip: Can't lookup $host\n"; |
21 | exit 0; |
22 | } |
34b7e82b |
23 | } |
24 | |
25 | use Sys::Syslog qw(:DEFAULT setlogsock); |
26 | |
27 | print "1..6\n"; |
28 | |
f41ed1f7 |
29 | if (Sys::Syslog::_PATH_LOG()) { |
30 | if (-e Sys::Syslog::_PATH_LOG()) { |
31 | print defined(eval { setlogsock('unix') }) ? "ok 1\n" : "not ok 1\n"; |
32 | print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 2\n" : "not ok 2\n"; |
33 | print defined(eval { syslog('info', 'test') }) ? "ok 3\n" : "not ok 3\n"; |
34 | } |
35 | else { |
36 | for (1..3) { |
37 | print |
38 | "ok $_ # skipping, file ", |
39 | Sys::Syslog::_PATH_LOG(), |
40 | " does not exist\n"; |
41 | } |
42 | } |
150b260b |
43 | } |
44 | else { |
45 | for (1..3) { print "ok $_ # skipping, _PATH_LOG unavailable\n" } |
46 | } |
34b7e82b |
47 | |
48 | print defined(eval { setlogsock('inet') }) ? "ok 4\n" : "not ok 4\n"; |
49 | print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 5\n" : "not ok 5\n"; |
50 | print defined(eval { syslog('info', 'test') }) ? "ok 6\n" : "not ok 6\n"; |