1 files changed, 52 insertions, 0 deletions
diff --git a/regress/usr.sbin/syslogd/args-sendsyslog-error.pl b/regress/usr.sbin/syslogd/args-sendsyslog-error.pl
new file mode 100644
index 00000000000..978b0147489
--- /dev/null
+++ b/regress/usr.sbin/syslogd/args-sendsyslog-error.pl
@@ -0,0 +1,52 @@
+# Run client before starting syslogd.
+# The client writes one message before and one after syslogd is started.
+# The kernel writes a sendsyslog(2) error message to the log socket.
+# Start syslogd, it reads the error and the second message from the log socket.
+# Find the kernel error message in file, syslogd, server log.
+# Check that the first message got lost.
+# Create a ktrace dump of the client and check that sendsyslog(2) has failed.
+
+use strict;
+use warnings;
+use Errno ':POSIX';
+
+my $errno = ENOTCONN;
+my $kerngrep = qr/sendsyslog: dropped \d+ messages?, error $errno$/;
+
+our %args = (
+    client => {
+	early => 1,
+	func => sub { write_between2logs(shift, sub {
+	    my $self = shift;
+	    ${$self->{syslogd}}->loggrep(qr/syslogd: started/, 5)
+		or die "syslogd started not in syslogd.log";
+	})},
+	ktrace => {
+	    qr/CALL  sendsyslog/ => '>=2',
+	    qr/RET   sendsyslog -1 errno $errno / => '>=1',
+	},
+    },
+    syslogd => {
+	loggrep => {
+	    get_firstlog() => 0,
+	    $kerngrep => 1,
+	    get_testgrep() => 1,
+	},
+    },
+    server => {
+	loggrep => {
+	    get_firstlog() => 0,
+	    $kerngrep => 1,
+	    get_testgrep() => 1,
+	},
+    },
+    file => {
+	loggrep => {
+	    get_firstlog() => 0,
+	    $kerngrep => 1,
+	    get_testgrep() => 1,
+	},
+    },
+);
+
+1;