1270866Simp# The client writes a message to Sys::Syslog native method.
2270866Simp# The syslogd writes it into a file and through a pipe.
3270866Simp# The syslogd does not pass it via invalid IPv4 UDP to the loghost.
4270866Simp# Find the message in client, file, pipe, syslogd log.
5270866Simp# Check that the syslogd logs the error.
6270866Simp
7270866Simpuse strict;
8270866Simpuse warnings;
9270866Simp
10270866Simpour %args = (
11270866Simp    syslogd => {
12270866Simp	loghost => '@invalid://127.0.0.1',
13270866Simp	loggrep => {
14270866Simp	    qr/syslogd\[\d+\]: bad protocol "\@invalid:\/\/127.0.0.1"/ => 1,
15270866Simp	    get_testgrep() => 1,
16270866Simp	},
17270866Simp    },
18270866Simp    server => {
19270866Simp	noserver => 1,
20270866Simp    },
21270866Simp);
22270866Simp
23270866Simp1;
24270866Simp