1# test with mutiple packets 2 3use strict; 4use warnings; 5use List::Util qw(sum); 6 7my @lengths = (251, 16384, 0, 1, 2, 3, 4, 5); 8 9our %args = ( 10 client => { 11 lengths => \@lengths, 12 sndbuf => 30000, 13 }, 14 relay => { 15 rcvbuf => 30000, 16 sndbuf => 30000, 17 }, 18 server => { 19 rcvbuf => 30000, 20 }, 21 len => sum(@lengths), 22 lengths => "@lengths", 23 md5 => "544464f20384567028998e1a1a4c5b1e", 24); 25