1# The client writes a message to Sys::Syslog native method.
2# The client writes an additional  message with local5 and err.
3# The syslogd writes it into a file and through a pipe and to tty.
4# The special message also goes to all users with wall *.
5# The syslogd passes it via UDP to the loghost.
6# The server receives the message on its UDP socket.
7# Find the message in client, file, pipe, console, user, syslogd, server log.
8# Check that the special message is in the user's tty log twice.
9
10use strict;
11use warnings;
12use Sys::Syslog qw(:macros);
13
14our %args = (
15    client => {
16	func => sub {
17	    my $self = shift;
18	    syslog(LOG_LOCAL5|LOG_ERR, "test message to all users");
19	    write_log($self);
20	},
21    },
22    syslogd => {
23	conf => "local5.err\t*",
24    },
25    user => {
26	loggrep => {
27	    qr/Message from syslogd/ => 1,
28	    qr/syslogd-regress.* test message to all users/ => 2,
29	},
30    },
31);
32
331;
34