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 | } |
11 | } |
12 | |
13 | use Sys::Syslog qw(:DEFAULT setlogsock); |
14 | |
15 | print "1..6\n"; |
16 | |
f41ed1f7 |
17 | if (Sys::Syslog::_PATH_LOG()) { |
18 | if (-e Sys::Syslog::_PATH_LOG()) { |
19 | print defined(eval { setlogsock('unix') }) ? "ok 1\n" : "not ok 1\n"; |
20 | print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 2\n" : "not ok 2\n"; |
21 | print defined(eval { syslog('info', 'test') }) ? "ok 3\n" : "not ok 3\n"; |
22 | } |
23 | else { |
24 | for (1..3) { |
25 | print |
26 | "ok $_ # skipping, file ", |
27 | Sys::Syslog::_PATH_LOG(), |
28 | " does not exist\n"; |
29 | } |
30 | } |
150b260b |
31 | } |
32 | else { |
33 | for (1..3) { print "ok $_ # skipping, _PATH_LOG unavailable\n" } |
34 | } |
34b7e82b |
35 | |
36 | print defined(eval { setlogsock('inet') }) ? "ok 4\n" : "not ok 4\n"; |
37 | print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 5\n" : "not ok 5\n"; |
38 | print defined(eval { syslog('info', 'test') }) ? "ok 6\n" : "not ok 6\n"; |