1# The syslogd binds UDP socket on ::1. 2# The client writes a message into a ::1 UDP socket. 3# The syslogd writes it into a file and through a pipe. 4# The syslogd passes it via UDP to the loghost. 5# The server receives the message on its UDP socket. 6# Find the message in client, file, pipe, syslogd, server log. 7# Check that the file log contains the localhost name. 8# Check that fstat contains a bound UDP socket. 9 10use strict; 11use warnings; 12use Socket; 13 14our %args = ( 15 client => { 16 connect => { domain => AF_INET6, addr => "::1", port => 514 }, 17 }, 18 syslogd => { 19 options => ["-U", "[::1]"], 20 fstat => { 21 qr/^root .* internet/ => 0, 22 qr/ internet6 dgram udp \[::1\]:514$/ => 1, 23 }, 24 }, 25 file => { 26 loggrep => qr/ localhost /. get_testgrep(), 27 }, 28); 29 301; 31