1# test maximum data length then copy packets, 2# client sleeps before and during writing 3 4use strict; 5use warnings; 6use List::Util qw(sum); 7 8my @lengths = (5, 4, 3, 2, 1, 0); 9 10our %args = ( 11 client => { 12 func => sub { sleep 3; write_datagram(@_); }, 13 sleep => 1, 14 lengths => \@lengths, 15 }, 16 relay => { 17 idle => 5, 18 func => sub { relay(@_); relay_copy(@_); }, 19 max => 9, 20 big => 1, 21 timeout => 1, 22 nocheck => 1, 23 }, 24 len => sum(@lengths), 25 lengths => "@lengths", 26 md5 => "464ddb107046ee0a42f43b202e826b8f", 27); 28