1a588825eSbluhm# The client writes a message to Sys::Syslog native method.
2a588825eSbluhm# The syslogd writes it into a file and through a pipe.
3a588825eSbluhm# The syslogd passes it via TLS to the loghost.
4a588825eSbluhm# The server receives the message on its TLS socket.
5a588825eSbluhm# Find the message in client, file, pipe, syslogd, server log.
6a588825eSbluhm# Check that the syslogd has one TCP socket in fstat output.
7a588825eSbluhm
8a588825eSbluhmuse strict;
9a588825eSbluhmuse warnings;
10a588825eSbluhmuse Socket;
11a588825eSbluhm
12a588825eSbluhmour %args = (
13a588825eSbluhm    syslogd => {
14f48a84a7Sbluhm	fstat => {
15f48a84a7Sbluhm	    qr/ internet stream tcp / => 1,
16f48a84a7Sbluhm	},
17a588825eSbluhm	loghost => '@tls://127.0.0.1:$connectport',
18a588825eSbluhm	options => ["-n"],
19a588825eSbluhm    },
20a588825eSbluhm    server => {
21*9f5e6548Sbluhm	listen => { domain => AF_INET, proto => "tls", addr => "127.0.0.1" },
22a588825eSbluhm    },
23a588825eSbluhm);
24a588825eSbluhm
25a588825eSbluhm1;
26