1# test with multiple packets, client sleeps before and during send 2 3use strict; 4use warnings; 5use List::Util qw(sum); 6 7my @lengths = (0, 1, 2, 3, 4, 5); 8 9our %args = ( 10 client => { 11 func => sub { sleep 3; write_datagram(@_); }, 12 lengths => \@lengths, 13 sleep => 1, 14 }, 15 relay => { 16 idle => 5, 17 }, 18 len => sum(@lengths), 19 lengths => "@lengths", 20 md5 => "553af7b8fc0e205ead2562ab61a2ad13", 21); 22