1# test mix write and relay delaying before server read 2 3use strict; 4use warnings; 5 6our %args = ( 7 client => { 8 func => sub { sleep 4; write_stream(@_); }, 9 len => 65521, 10 nocheck => 1, 11 }, 12 relay => { 13 func => sub { 14 write_stream(@_, 32749); 15 IO::Handle::flush(\*STDOUT); 16 relay(@_); 17 write_stream(@_, 2039); 18 }, 19 nocheck => 1, 20 }, 21 server => { 22 func => sub { sleep 3; read_stream(@_); }, 23 }, 24 len => 100309, 25 md5 => "0efc7833e5c0652823ca63eaccb9918f", 26); 27