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