# The client writes messages to localhost IPv4 and IPv6 UDP socket. # The syslogd does not receive them as it is started without -u. # Keep the sockets open by pretending to write to them. # Check that client does send the message, but it is not in the file. # Check with fstat that both *:514 sockets are bound. # Check that there is no recvfrom localhost in syslogd ktrace. use strict; use warnings; use Socket; our %args = ( client => { connectaddr => "none", redo => [ { connect => { domain => AF_INET, addr => "127.0.0.1", proto => "udp", port => "514", }}, { connect => { domain => AF_INET, addr => "127.0.0.1", proto => "udp", port => "514", }}, { connect => { domain => AF_INET6, addr => "::1", proto => "udp", port => "514", }}, ], func => sub { redo_connect(shift, sub { my $self = shift; write_message($self, "client addr: ". $self->{connectaddr}); })}, loggrep => { qr/client addr:/ => 4, get_testgrep() => 1, } }, syslogd => { options => [], loghost => "/dev/null", conf => "*.*\t\@udp4://0.0.0.0:0\n". "*.*\t\@udp6://[::]:0\n", fstat => { qr/^_syslogd syslogd .* internet6? dgram udp \*:514$/ => 2, }, ktrace => { qr/127\.0\.0\.1/ => 0, qr/\[::1\]/ => 0, }, }, server => { noserver => 1, }, file => { loggrep => { qr/client addr: none/ => 1, qr/client addr:/ => 1, get_testgrep() => 1, } }, ); 1;