1# The client writes a message to a localhost IPv6 UDP socket. 2# The syslogd writes it into a file and through a pipe. 3# The syslogd -6 passes it via IPv6 UDP to the 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 the syslogd has no IPv4 socket in fstat output. 7 8use strict; 9use warnings; 10use Socket; 11 12our %args = ( 13 client => { 14 connect => { domain => AF_INET6, addr => "::1", port => 514 }, 15 }, 16 syslogd => { 17 fstat => 1, 18 loghost => '@[::1]:$connectport', 19 options => ["-6nu"], 20 }, 21 server => { 22 listen => { domain => AF_INET6, addr => "::1" }, 23 }, 24 file => { 25 loggrep => qr/ ::1 /. get_testlog(), 26 }, 27 fstat => { 28 loggrep => { 29 qr/ internet / => 0, 30 }, 31 }, 32); 33 341; 35