args-length-vis.pl revision 1.2 
1# The client writes long messages to UDP socket.
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 log.
6# Check that lines with visual encoding at the end are truncated.
7
8use strict;
9use warnings;
10use Socket;
11
12our %args = (
13    client => {
14	connect => { domain => AF_UNSPEC, addr => "localhost", port => 514 },
15	func => \&write_length,
16	lengths => [ 8186..8195,9000 ],
17	tail => "foo\200",
18    },
19    syslogd => {
20	options => ["-u"],
21	loggrep => {
22	    get_charlog() => 11,
23	}
24    },
25    file => {
26	# Jan 31 00:12:39 localhost 0123456789ABC...567
27	loggrep => {
28	    get_charlog() => 11,
29	    qr/^.{25} .{8182}foo\\M\^\@$/ => 1,
30	    qr/^.{25} .{8183}foo\\M\^\@$/ => 1,
31	    qr/^.{25} .{8184}foo\\M\^\@$/ => 1,
32	    qr/^.{25} .{8185}foo\\M\^\@$/ => 1,
33	    qr/^.{25} .{8186}foo\\M\^$/ => 1,
34	    qr/^.{25} .{8187}foo\\M$/ => 1,
35	    qr/^.{25} .{8188}foo\\$/ => 1,
36	    qr/^.{25} .{8189}foo$/ => 1,
37	    qr/^.{25} .{8190}fo$/ => 1,
38	    qr/^.{25} .{8191}f$/ => 1,
39	    qr/^.{25} .{8192}$/ => 8,
40	},
41    },
42);
43
441;
45