regress/sys/kern/sosplice/tcp/args-write-sleep-server.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 delaying before server read

use strict;
use warnings;

our %args = (
    client => {
	func => sub { sleep 4; write_stream(@_); },
	len => 65521,
	nocheck => 1,
    },
    relay => {
	func => sub {
	    write_stream(@_, 32749);
	    IO::Handle::flush(\*STDOUT);
	    relay(@_);
	    write_stream(@_, 2039);
	},
	nocheck => 1,
    },
    server => {
	func => sub { sleep 3; read_stream(@_); },
    },
    len => 100309,
    md5 => "0efc7833e5c0652823ca63eaccb9918f",
);