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# Syslogc clears the memory logs. 6# Find the message in client, file, pipe, syslogd, server log. 7# Check that memory buffer has been cleared. 8 9use strict; 10use warnings; 11 12our %args = ( 13 syslogd => { 14 memory => 1, 15 loggrep => { 16 qr/Accepting control connection/ => 2, 17 qr/ctlcmd 3/ => 1, 18 get_testgrep() => 1, 19 }, 20 }, 21 syslogc => [ { 22 options => ["-C", "memory"], 23 loggrep => qr/Log cleared/, 24 }, { 25 options => ["memory"], 26 loggrep => { get_testgrep() => 0 }, 27 } ], 28); 29 301; 31