1# The syslogd listens on 127.0.0.1 TCP socket.
2# The client writes a message to Sys::Syslog TCP method.
3# The syslogd writes it into a file and through a pipe without dns.
4# The syslogd passes it via UDP to the loghost.
5# The server receives the message on its UDP socket.
6# Find the message in client, file, pipe, syslogd, server log.
7# Check that the file log contains the 127.0.0.1 address.
8
9use strict;
10use warnings;
11
12our %args = (
13    client => {
14	logsock => { type => "tcp", host => "127.0.0.1", port => 514 },
15    },
16    syslogd => {
17	options => ["-n", "-T", "127.0.0.1:514"],
18    },
19    file => {
20	loggrep => qr/ 127.0.0.1 syslogd-regress\[\d+\]: /. get_testgrep(),
21    },
22);
23
241;
25