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