1# test persistent http 1.1 connection over http relay 2 3use strict; 4use warnings; 5 6my @lengths = (251, 16384, 0, 1, 2, 3, 4, 5); 7our %args = ( 8 client => { 9 func => \&http_client, 10 lengths => \@lengths, 11 }, 12 relayd => { 13 protocol => [ "http", 14 "match request header log foo", 15 "match response header log bar", 16 ], 17 loggrep => { 18 qr/, (?:done|last write \(done\))/ => (1 + @lengths), 19 } 20 }, 21 server => { 22 func => \&http_server, 23 }, 24 lengths => \@lengths, 25 md5 => "bc3a3f39af35fe5b1687903da2b00c7f", 26); 27 281; 29