1# test mix write and relay
2
3use strict;
4use warnings;
5use List::Util qw(sum);
6
7my @lengths = (1, 2, 3, 4, 5);
8
9our %args = (
10    client => {
11	lengths => [ 2, 3, 4 ],
12	nocheck => 1,
13    },
14    relay => {
15	func => sub {
16	    write_stream(@_, 1);
17	    IO::Handle::flush(\*STDOUT);
18	    relay(@_);
19	    write_stream(@_, 5);
20	},
21	nocheck => 1,
22    },
23    len => sum(@lengths),
24    lengths => "@lengths",
25    md5 => "1830da3b4358ccedeb49877c2cff8c86",
26);
27