1*6fa0d698Sbluhm# test 50 http put with length 1 over http relay
2*6fa0d698Sbluhm
3*6fa0d698Sbluhmuse strict;
4*6fa0d698Sbluhmuse warnings;
5*6fa0d698Sbluhm
6*6fa0d698Sbluhmmy @lengths = map { 1 } (1..50);
7*6fa0d698Sbluhmour %args = (
8*6fa0d698Sbluhm    client => {
9*6fa0d698Sbluhm	func => \&http_client,
10*6fa0d698Sbluhm	lengths => \@lengths,
11*6fa0d698Sbluhm	method => "PUT",
12*6fa0d698Sbluhm    },
13*6fa0d698Sbluhm    relayd => {
14*6fa0d698Sbluhm	protocol => [ "http" ],
15*6fa0d698Sbluhm	loggrep => {
16*6fa0d698Sbluhm	    qr/, (?:done|last write \(done\)), PUT/ => (1 + @lengths),
17*6fa0d698Sbluhm	},
18*6fa0d698Sbluhm    },
19*6fa0d698Sbluhm    server => {
20*6fa0d698Sbluhm	func => \&http_server,
21*6fa0d698Sbluhm    },
22*6fa0d698Sbluhm    lengths => \@lengths,
23*6fa0d698Sbluhm);
24*6fa0d698Sbluhm
25*6fa0d698Sbluhm1;
26