# The client kills syslogd.
# The client writes a message with sendsyslog LOG_CONS flag.
# Find the message in console log.
# Create a ktrace dump of the client and check for sendsyslog.
# Check that no syslog priority or dropped message is logged to console.

use strict;
use warnings;
use Errno ':POSIX';
use Sys::Syslog 'LOG_CONS';

my $errno = ENOTCONN;

our %args = (
    client => {
	func => sub {
	    my $self = shift;
	    ${$self->{syslogd}}->kill_syslogd('TERM');
	    ${$self->{syslogd}}->down();
	    sendsyslog("<123>".get_testlog(), LOG_CONS)
		and die ref($self), " sendsyslog succeeded";
	    sendsyslog(get_testlog(), LOG_CONS)
		and die ref($self), " sendsyslog succeeded";
	    foreach (qw(< <1 <12 <123 <1234)) {
		sendsyslog($_, LOG_CONS)
		    and die ref($self), " sendsyslog succeeded";
		sendsyslog("$_>", LOG_CONS)
		    and die ref($self), " sendsyslog succeeded";
		sendsyslog("$_>foo", LOG_CONS)
		    and die ref($self), " sendsyslog succeeded";
	    }
	    write_shutdown($self);
	},
	ktrace => {
	    qr/CALL  sendsyslog\(/ => 18,
	    qr/GIO   fd -1 wrote /.length(get_testlog()).qr/ bytes/ => 2,
	    qr/RET   sendsyslog -1 errno $errno / => 18,
	},
	loggrep => {},
    },
    syslogd => {
	conffile => "/dev/null",
	loggrep => {},
    },
    server => { noserver => 1 },
    file => { nocheck => 1 },
    pipe => { nocheck => 1 },
    user => { nocheck => 1 },
    console => {
	loggrep => {
	    get_testgrep() => 2,
	    qr/<\d+>/ => 0,
	    qr/dropped \d+ message/ => 0,
	},
    },
);

1;