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 IPv6 UDP to an explicit loghost. 4# The server receives the message on its UDP socket. 5# Find the message in client, file, pipe, syslogd, server log. 6# Check that syslogd and server log contain ::1 address. 7 8use strict; 9use warnings; 10use Socket; 11 12our %args = ( 13 syslogd => { 14 loghost => '@[::1]:$connectport', 15 loggrep => { 16 qr/Logging to FORWUDP \@\[::1\]:\d+/ => '>=4', 17 get_testgrep() => 1, 18 }, 19 }, 20 server => { 21 listen => { domain => AF_INET6, addr => "::1" }, 22 loggrep => { 23 qr/listen sock: ::1 \d+/ => 1, 24 get_testgrep() => 1, 25 }, 26 }, 27); 28 291; 30