1# test with multiple packets, relay sleeps before processing 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 lengths => \@lengths, 12 }, 13 relay => { 14 func => sub { sleep 3; relay(@_); }, 15 }, 16 len => sum(@lengths), 17 lengths => "@lengths", 18 md5 => "553af7b8fc0e205ead2562ab61a2ad13", 19); 20