1# test chunked https 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 ssl => 1, 11 lengths => \@lengths, 12 http_vers => ["1.1"], 13 method => "PUT", 14 }, 15 relayd => { 16 protocol => [ "http", 17 "match request header log Transfer-Encoding", 18 "match response header log bar", 19 ], 20 forwardssl => 1, 21 listenssl => 1, 22 loggrep => { 23 qr/\[Transfer-Encoding: chunked\]/ => 1, 24 qr/\[\(null\)\]/ => 0, 25 }, 26 }, 27 server => { 28 func => \&http_server, 29 ssl => 1, 30 }, 31 lengths => \@lengths, 32 md5 => [ 33 "bc3a3f39af35fe5b1687903da2b00c7f", 34 "fccd8d69acceb0cc35f2fd4e2f6938d3", 35 "c47658d102d5b989e0da09ce403f7463", 36 "68b329da9893e34099c7d8ad5cb9c940", 37 "897316929176464ebc9ad085f31e7284", 38 "0ade138937c4b9cb36a28e2edb6485fc", 39 ], 40); 41 421; 43