1# test persistent http 1.1 put 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	method => "PUT",
12    },
13    relayd => {
14	protocol => [ "http",
15	    "match request header log foo",
16	    "match response header log bar",
17	],
18	loggrep => {
19	    qr/, (?:done|last write \(done\))/ => (1 + @lengths),
20	}
21    },
22    server => {
23	func => \&http_server,
24    },
25    lengths => \@lengths,
26    md5 => [
27	"bc3a3f39af35fe5b1687903da2b00c7f",
28	"52afece07e61264c3087ddf52f729376",
29	"d41d8cd98f00b204e9800998ecf8427e",
30	"68b329da9893e34099c7d8ad5cb9c940",
31	"897316929176464ebc9ad085f31e7284",
32	"0ade138937c4b9cb36a28e2edb6485fc",
33	"e686f5db1f8610b65f98f3718e1a5b72",
34	"e5870c1091c20ed693976546d23b4841",
35	"bc3a3f39af35fe5b1687903da2b00c7f",
36	"52afece07e61264c3087ddf52f729376",
37	"d41d8cd98f00b204e9800998ecf8427e",
38	"68b329da9893e34099c7d8ad5cb9c940",
39	"897316929176464ebc9ad085f31e7284",
40	"0ade138937c4b9cb36a28e2edb6485fc",
41	"e686f5db1f8610b65f98f3718e1a5b72",
42	"e5870c1091c20ed693976546d23b4841",
43    ],
44);
45
461;
47