$ perl -wTIblib/lib -Iblib/arch t/syslog.t
netbsd@octane /usr/bsd/var/tmp/Sys-Syslog-0.23 # perl -wTIblib/lib
-Iblib/arch t/syslog.t
1..199
ok 1 - use Sys::Syslog;
ok 2 - Sys::Syslog->can(...)
ok 3 - calling setlogsock() with no argument
ok 4 - calling syslog() with no argument
ok 5 - calling syslog() with one undef argument
ok 6 - calling syslog() with one empty argument
ok 7 - setlogsock() called with 'stream'
not ok 8 - setlogsock() should return true: '0' # TODO minor bug
# Failed (TODO) test 'setlogsock() should return true: '0''
# at t/syslog.t line 94.
ok 9 - openlog() called with facility 'local0'
ok 10 - openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 11 - syslog() called with level 'info'
not ok 12 - syslog() should return true: '0'
# Failed test 'syslog() should return true: '0''
# at t/syslog.t line 108.
ok 13 - closelog()
not ok 14 - closelog() should return true: '0'
# Failed test 'closelog() should return true: '0''
# at t/syslog.t line 113.
ok 15 - [native] setlogsock() called with ['native']
ok 16 - [native] setlogsock() should return true: '1'
ok 17 - [native] setlogsock() called with 'native'
ok 18 - [native] setlogsock() should return true: '1'
ok 19 - [native] openlog() called with facility 'local0' and without
option 'ndelay'
ok 20 - [native] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 21 - [native] openlog() called with facility 'local0' with option 'ndelay'
ok 22 - [native] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 23 - [native] syslog() called with level -1
ok 24 - [native] syslog() should return false: '0'
ok 25 - [native] syslog() called with level 'info,notice'
ok 26 - [native] syslog() should return false: '0'
ok 27 - [native] syslog() called with level 'local0,local1'
ok 28 - [native] syslog() should return false: '0'
ok 29 - [native] syslog() called with level 'info' (string)
ok 30 - [native] syslog() should return true: '1'
ok 31 - [native] syslog() called with level 'info' (macro)
ok 32 - [native] syslog() should return true: '1'
ok 33 - [native] closelog()
ok 34 - [native] closelog() should return true: '1'
ok 35 - [eventlog] setlogsock() called with ['eventlog']
ok 36 - [eventlog] setlogsock() should return true: '1'
ok 37 # skip can't use 'eventlog' socket
ok 38 # skip can't use 'eventlog' socket
ok 39 # skip can't use 'eventlog' socket
ok 40 # skip can't use 'eventlog' socket
ok 41 # skip can't use 'eventlog' socket
ok 42 # skip can't use 'eventlog' socket
ok 43 # skip can't use 'eventlog' socket
ok 44 # skip can't use 'eventlog' socket
ok 45 # skip can't use 'eventlog' socket
ok 46 # skip can't use 'eventlog' socket
ok 47 # skip can't use 'eventlog' socket
ok 48 # skip can't use 'eventlog' socket
ok 49 # skip can't use 'eventlog' socket
ok 50 # skip can't use 'eventlog' socket
ok 51 # skip can't use 'eventlog' socket
ok 52 # skip can't use 'eventlog' socket
ok 53 # skip can't use 'eventlog' socket
ok 54 # skip can't use 'eventlog' socket
ok 55 - [unix] setlogsock() called with ['unix']
ok 56 - [unix] setlogsock() should return true: '1'
ok 57 - [unix] setlogsock() called with 'unix'
ok 58 - [unix] setlogsock() should return true: '1'
ok 59 # skip can't connect to syslog
ok 60 # skip can't connect to syslog
ok 61 # skip can't connect to syslog
ok 62 # skip can't connect to syslog
ok 63 # skip can't connect to syslog
ok 64 # skip can't connect to syslog
ok 65 # skip can't connect to syslog
ok 66 # skip can't connect to syslog
ok 67 # skip can't connect to syslog
ok 68 # skip can't connect to syslog
ok 69 # skip can't connect to syslog
ok 70 # skip can't connect to syslog
ok 71 # skip can't connect to syslog
ok 72 # skip can't connect to syslog
ok 73 # skip can't connect to syslog
ok 74 # skip can't connect to syslog
ok 75 - [pipe] setlogsock() called with ['pipe']
ok 76 - [pipe] setlogsock() should return true: '1'
ok 77 # skip can't use 'pipe' socket
ok 78 # skip can't use 'pipe' socket
ok 79 # skip can't use 'pipe' socket
ok 80 # skip can't use 'pipe' socket
ok 81 # skip can't use 'pipe' socket
ok 82 # skip can't use 'pipe' socket
ok 83 # skip can't use 'pipe' socket
ok 84 # skip can't use 'pipe' socket
ok 85 # skip can't use 'pipe' socket
ok 86 # skip can't use 'pipe' socket
ok 87 # skip can't use 'pipe' socket
ok 88 # skip can't use 'pipe' socket
ok 89 # skip can't use 'pipe' socket
ok 90 # skip can't use 'pipe' socket
ok 91 # skip can't use 'pipe' socket
ok 92 # skip can't use 'pipe' socket
ok 93 # skip can't use 'pipe' socket
ok 94 # skip can't use 'pipe' socket
ok 95 - [stream] setlogsock() called with ['stream']
ok 96 - [stream] setlogsock() should return true: '1'
ok 97 - [stream] setlogsock() called with 'stream'
ok 98 - [stream] setlogsock() should return true: '1'
ok 99 - [stream] openlog() called with facility 'local0' and without
option 'ndelay'
ok 100 - [stream] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 101 - [stream] openlog() called with facility 'local0' with option 'ndelay'
ok 102 - [stream] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 103 - [stream] syslog() called with level -1
ok 104 - [stream] syslog() should return false: '0'
ok 105 - [stream] syslog() called with level 'info,notice'
ok 106 - [stream] syslog() should return false: '0'
ok 107 - [stream] syslog() called with level 'local0,local1'
ok 108 - [stream] syslog() should return false: '0'
ok 109 - [stream] syslog() called with level 'info' (string)
not ok 110 - [stream] syslog() should return true: '0'
# Failed test '[stream] syslog() should return true: '0''
# at t/syslog.t line 168.
ok 111 - [stream] syslog() called with level 'info' (macro)
not ok 112 - [stream] syslog() should return true: '0'
# Failed test '[stream] syslog() should return true: '0''
# at t/syslog.t line 175.
ok 113 - [stream] closelog()
not ok 114 - [stream] closelog() should return true: '0'
# Failed test '[stream] closelog() should return true: '0''
# at t/syslog.t line 184.
ok 115 - [inet] setlogsock() called with ['inet']
ok 116 - [inet] setlogsock() should return true: '1'
ok 117 - [inet] setlogsock() called with 'inet'
ok 118 - [inet] setlogsock() should return true: '1'
ok 119 - [inet] openlog() called with facility 'local0' and without
option 'ndelay'
ok 120 - [inet] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 121 - [inet] openlog() called with facility 'local0' with option 'ndelay'
ok 122 - [inet] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 123 - [inet] syslog() called with level -1
ok 124 - [inet] syslog() should return false: '0'
ok 125 - [inet] syslog() called with level 'info,notice'
ok 126 - [inet] syslog() should return false: '0'
ok 127 - [inet] syslog() called with level 'local0,local1'
ok 128 - [inet] syslog() should return false: '0'
ok 129 - [inet] syslog() called with level 'info' (string)
ok 130 - [inet] syslog() should return true: '1'
ok 131 - [inet] syslog() called with level 'info' (macro)
ok 132 - [inet] syslog() should return true: '1'
ok 133 - [inet] closelog()
ok 134 - [inet] closelog() should return true: '1'
ok 135 - [tcp] setlogsock() called with ['tcp']
ok 136 - [tcp] setlogsock() should return true: '1'
ok 137 # skip can't use 'tcp' socket
ok 138 # skip can't use 'tcp' socket
ok 139 # skip can't use 'tcp' socket
ok 140 # skip can't use 'tcp' socket
ok 141 # skip can't use 'tcp' socket
ok 142 # skip can't use 'tcp' socket
ok 143 # skip can't use 'tcp' socket
ok 144 # skip can't use 'tcp' socket
ok 145 # skip can't use 'tcp' socket
ok 146 # skip can't use 'tcp' socket
ok 147 # skip can't use 'tcp' socket
ok 148 # skip can't use 'tcp' socket
ok 149 # skip can't use 'tcp' socket
ok 150 # skip can't use 'tcp' socket
ok 151 # skip can't use 'tcp' socket
ok 152 # skip can't use 'tcp' socket
ok 153 # skip can't use 'tcp' socket
ok 154 # skip can't use 'tcp' socket
ok 155 - [udp] setlogsock() called with ['udp']
ok 156 - [udp] setlogsock() should return true: '1'
ok 157 - [udp] setlogsock() called with 'udp'
ok 158 - [udp] setlogsock() should return true: '1'
ok 159 - [udp] openlog() called with facility 'local0' and without
option 'ndelay'
ok 160 - [udp] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 161 - [udp] openlog() called with facility 'local0' with option 'ndelay'
ok 162 - [udp] openlog() should return true: 'Sys::Syslog::SYSLOG'
ok 163 - [udp] syslog() called with level -1
ok 164 - [udp] syslog() should return false: '0'
ok 165 - [udp] syslog() called with level 'info,notice'
ok 166 - [udp] syslog() should return false: '0'
ok 167 - [udp] syslog() called with level 'local0,local1'
ok 168 - [udp] syslog() should return false: '0'
ok 169 - [udp] syslog() called with level 'info' (string)
ok 170 - [udp] syslog() should return true: '1'
ok 171 - [udp] syslog() called with level 'info' (macro)
ok 172 - [udp] syslog() should return true: '1'
ok 173 - [udp] closelog()
ok 174 - [udp] closelog() should return true: '1'
ok 175 - setlogsock() called, with 'stream' and an undef path
ok 176 - setlogsock() should return true: '1'
ok 177 - setlogsock() called, with 'stream' and an empty path
ok 178 - setlogsock() should return false: ''
ok 179 - setlogsock() called, with 'stream' and '/dev/null'
ok 180 - setlogsock() should return true: '1'
ok 181 - setlogsock() called, with 'stream' and 'test.log' (file does not exist)
ok 182 - setlogsock() should return false: ''
ok 183 - setlogsock() called, with 'stream' and 'test.log' (file exists)
ok 184 - setlogsock() should return true: '1'
ok 185 - setlogmask() called with a null mask
ok 186 - setlogmask() called with a null mask (second time)
ok 187 - setlogmask() must return the same mask as previous call
ok 188 - setlogmask() called with a new mask
ok 189 - setlogmask() must return the same mask as previous call
ok 190 - setlogmask() called with a null mask
ok 191 - setlogmask() must return the new mask
ok 192 - setlogmask() called with a new mask
ok 193 - setlogmask() must return the same mask as previous call
ok 194 - setlogmask() called with a null mask
ok 195 - setlogmask() must return the new mask
ok 196 - setlogmask() called with a new mask
ok 197 - setlogmask() must return the same mask as previous call
ok 198 - setlogmask() called with a null mask
ok 199 - setlogmask() must return the new mask
# Looks like you failed 5 tests of 199.
$ ls -lF /dev/log
netbsd@octane /usr/bsd/var/tmp/Sys-Syslog-0.23 # ls -lF /dev/log
crw-rw-rw- 1 root sys 10, 80 2007-11-14 13:47 /dev/log
$ perl -le 'print join$",-w shift&&"writable",-S _&&"socket",-c
_&&"char",-p _&&"pipe"' /dev/log
netbsd@octane /usr/bsd/var/tmp/Sys-Syslog-0.23 # perl -le 'print
join$",-w shift&&"writable",-S _&&"socket",-c _&&"char",-p _&&"pipe"'
/dev/log
writable char
Hope this helps,
Stuart
