1# The client writes a message to Sys::Syslog native method.
2# The syslogd writes it into a file and through a pipe.
3# The syslogd passes it via UDP to the loghost.
4# The server receives the message on its UDP socket.
5# Find the message in client, file, pipe, syslogd, server log.
6# Check that the file log contains the hostname and message.
7
8use strict;
9use warnings;
10use Sys::Hostname;
11
12(my $host = hostname()) =~ s/\..*//;
13
14our %args = (
15    client => {
16	logsock => { type => "native" },
17    },
18    file => {
19	loggrep => qr/ $host syslogd-regress\[\d+\]: /. get_testgrep(),
20    },
21);
22
231;
24