1# The client writes a message to Sys::Syslog native method.
2# The syslogd writes it into a file and through a pipe and to tty.
3# The syslogd passes it via UDP non exising loghost with reject route
4# Find dropped udp loghost message in log file.
5
6use strict;
7use warnings;
8use Socket;
9
10our %args = (
11    syslogd => {
12	loghost => '@udp://127.1.2.3:4567',
13	loggrep => {
14	    # more messages after 'dropped 4 messages' are dropped
15	    qr/Logging to FORWUDP .* \(dropped send error\)/ => '>=4',
16	},
17    },
18    server => {
19	noserver => 1,
20    },
21    file => {
22	loggrep => {
23	    qr/syslogd\[\d+\]: dropped 4 messages to udp loghost/ => 1,
24	},
25    },
26);
27
281;
29