regress/sys/kern/sosplice/udp/args-write.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

# test mix write and relay

use strict;
use warnings;
use List::Util qw(sum);

my @lengths = (1, 2, 3, 4, 5);

our %args = (
    client => {
	lengths => [ 2, 3, 4 ],
	nocheck => 1,
    },
    relay => {
	func => sub {
	    write_stream(@_, 1);
	    IO::Handle::flush(\*STDOUT);
	    relay(@_);
	    write_stream(@_, 5);
	},
	nocheck => 1,
    },
    len => sum(@lengths),
    lengths => "@lengths",
    md5 => "1830da3b4358ccedeb49877c2cff8c86",
);