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 fails to to do DNS lookup of UDP loghost. 4# Find the message in client, file, pipe, syslogd log. 5# Check that syslogd log contains dns failures and retry. 6 7use strict; 8use warnings; 9use Socket; 10 11our %args = ( 12 syslogd => { 13 loghost => '@udp://noexist.invalid.:514', 14 loggrep => { 15 qr/bad hostname "\@udp:\/\/noexist.invalid.:514"/ => '>=2', 16 qr/Logging to FORWUDP \@udp:\/\/noexist.invalid.:514/ => '>=4', 17 qr/retry loghost "\@udp:\/\/noexist.invalid.:514" wait 1/ => 1, 18 get_testgrep() => 1, 19 }, 20 }, 21 server => { 22 noserver => 1, 23 }, 24); 25 261; 27