args-client-native.pl revision 1.3
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 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 file log contains the hostname and message. 7 8use strict; 9use warnings; 10use Sys::Hostname; 11 12(my $host = hostname()) =~ s/\..*//; 13 14our %args = ( 15 client => { 16 logsock => { type => "native" }, 17 }, 18 file => { 19 loggrep => qr/ $host syslogd-regress\[\d+\]: /. get_testgrep(), 20 }, 21); 22 231; 24