1# test persistent http 1.1 connection and grep for content length 2 3use strict; 4use warnings; 5 6my @lengths = (1, 2, 0, 3, 4); 7our %args = ( 8 client => { 9 func => \&http_client, 10 lengths => \@lengths, 11 }, 12 relayd => { 13 protocol => [ "http", 14 "request header log foo", 15 "response header log Content-Length", 16 ], 17 loggrep => [ map { "log 'Content-Length: $_'" } @lengths ], 18 }, 19 server => { 20 func => \&http_server, 21 }, 22 lengths => \@lengths, 23); 24 251; 26