1 files changed, 40 insertions, 0 deletions
diff --git a/regress/usr.sbin/syslogd/args-memory-overflow-cont.pl b/regress/usr.sbin/syslogd/args-memory-overflow-cont.pl
new file mode 100644
index 00000000000..23e15a6ef78
--- /dev/null
+++ b/regress/usr.sbin/syslogd/args-memory-overflow-cont.pl
@@ -0,0 +1,40 @@
+# Syslogc reads the memory logs continously.
+# The client writes message to overflow the memory buffer method.
+# The syslogd writes it into a file and through a pipe.
+# The syslogd passes it via UDP to the loghost.
+# The server receives the message on its UDP socket.
+# Check that syslogc logs lost lines.
+
+use strict;
+use warnings;
+use Time::HiRes 'sleep';
+
+our %args = (
+    client => {
+	func => sub {
+	    my $self = shift;
+	    foreach (1..300) {
+		write_message($self, $_ x 1024);
+		# if client sends too fast, syslogd will not see everything
+		sleep .01;
+	    }
+	    write_log($self);
+	},
+    },
+    syslogd => {
+	memory => 1,
+	loggrep => {
+	    qr/Accepting control connection/ => 1,
+	    qr/ctlcmd 6/ => 1,  # read cont
+	},
+    },
+    syslogc => [ {
+	early => 1,
+	stop => 1,
+	options => ["-f", "memory"],
+	down => qr/Lines were dropped!/,
+	loggrep => {},
+    } ],
+);
+
+1;