Commit | Line | Data |
34b7e82b |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | unshift @INC, '../lib'; |
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 | |
17 | print defined(eval { setlogsock('unix') }) ? "ok 1\n" : "not ok 1\n"; |
18 | print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 2\n" : "not ok 2\n"; |
19 | print defined(eval { syslog('info', 'test') }) ? "ok 3\n" : "not ok 3\n"; |
20 | |
21 | print defined(eval { setlogsock('inet') }) ? "ok 4\n" : "not ok 4\n"; |
22 | print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 5\n" : "not ok 5\n"; |
23 | print defined(eval { syslog('info', 'test') }) ? "ok 6\n" : "not ok 6\n"; |