1# test chunked http request over http relay 2 3use strict; 4use warnings; 5 6my @lengths = ([ 251, 10000, 10 ], 1, [2, 3]); 7our %args = ( 8 client => { 9 func => \&http_client, 10 lengths => \@lengths, 11 http_vers => ["1.1"], 12 method => "PUT", 13 }, 14 relayd => { 15 protocol => [ "http", 16 "match request header log Transfer-Encoding", 17 "match response header log bar", 18 ], 19 loggrep => { 20 qr/\[Transfer-Encoding: chunked\]/ => 1, 21 qr/\[\(null\)\]/ => 0, 22 }, 23 }, 24 server => { 25 func => \&http_server, 26 }, 27 lengths => \@lengths, 28 md5 => [ 29 "bc3a3f39af35fe5b1687903da2b00c7f", 30 "fccd8d69acceb0cc35f2fd4e2f6938d3", 31 "c47658d102d5b989e0da09ce403f7463", 32 "68b329da9893e34099c7d8ad5cb9c940", 33 "897316929176464ebc9ad085f31e7284", 34 "0ade138937c4b9cb36a28e2edb6485fc", 35 ], 36); 37 381; 39