args-length-vis.pl revision 1.1
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 12my $msg = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; 13 14our %args = ( 15 client => { 16 connect => { domain => AF_UNSPEC, addr => "localhost", port => 514 }, 17 func => \&write_length, 18 lengths => [ 8186..8195,9000 ], 19 tail => "foo\200", 20 }, 21 syslogd => { 22 options => ["-u"], 23 loggrep => { 24 $msg => 11, 25 } 26 }, 27 file => { 28 # Jan 31 00:12:39 localhost 0123456789ABC...567 29 loggrep => { 30 $msg => 11, 31 qr/^.{25} .{8182}foo\\M\^\@$/ => 1, 32 qr/^.{25} .{8183}foo\\M\^\@$/ => 1, 33 qr/^.{25} .{8184}foo\\M\^\@$/ => 1, 34 qr/^.{25} .{8185}foo\\M\^\@$/ => 1, 35 qr/^.{25} .{8186}foo\\M\^$/ => 1, 36 qr/^.{25} .{8187}foo\\M$/ => 1, 37 qr/^.{25} .{8188}foo\\$/ => 1, 38 qr/^.{25} .{8189}foo$/ => 1, 39 qr/^.{25} .{8190}fo$/ => 1, 40 qr/^.{25} .{8191}f$/ => 1, 41 qr/^.{25} .{8192}$/ => 8, 42 }, 43 }, 44); 45 461; 47