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 TLS to localhost loghost. 4# The server receives the message on its TLS default socket. 5# Find the message in client, file, pipe, syslogd, server log. 6# Check that server log contains ssl version TLS 1.3. 7 8use strict; 9use warnings; 10use Socket; 11 12our %args = ( 13 syslogd => { 14 loghost => '@tls://localhost:$connectport', 15 loggrep => { 16 qr/Logging to FORWTLS \@tls:\/\/localhost:\d+/ => '>=4', 17 get_testgrep() => 1, 18 qr/syslogd: loghost .* connection error: connect failed:/ => 0, 19 }, 20 }, 21 server => { 22 listen => { domain => AF_UNSPEC, proto => "tls", addr => "localhost" }, 23 loggrep => { 24 qr/listen sock: (127.0.0.1|::1) \d+/ => 1, 25 get_testgrep() => 1, 26 qr/ssl version: TLSv1_3$/ => 1, 27 }, 28 }, 29); 30 311; 32