Mercurial > hg > nginx-tests
annotate worker_shutdown_timeout_stream.t @ 1905:f35824e75b66
Tests: fixed reading QUIC streams on Perl < 5.24.
The parse_stream() routine has had a missing explicit return if there were no
streams received. In Perl < 5.24 this used to return no value, or an empty
array in the list context. In modern Perl this returns an empty value, or an
array of 1 element, which made the check for last index of the returned array
work rather by accident.
The fix is to return explicitly and to check the array size in callers instead.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 06 Jun 2023 18:50:07 +0400 |
parents | f3ba4c74de31 |
children |
rev | line source |
---|---|
1245
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
2 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
3 # (C) Sergey Kandaurov |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
4 # (C) Nginx, Inc. |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
5 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
6 # Tests for worker_shutdown_timeout directive within the stream module. |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
7 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
8 ############################################################################### |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
9 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
10 use warnings; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
11 use strict; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
12 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
13 use Test::More; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
14 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
15 BEGIN { use FindBin; chdir($FindBin::Bin); } |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
16 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
17 use lib 'lib'; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
18 use Test::Nginx; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
19 use Test::Nginx::SMTP; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
20 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
21 ############################################################################### |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
22 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
23 select STDERR; $| = 1; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
24 select STDOUT; $| = 1; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
25 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
26 local $SIG{PIPE} = 'IGNORE'; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
27 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
28 my $t = Test::Nginx->new()->has(qw/stream/)->plan(3) |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
29 ->write_file_expand('nginx.conf', <<'EOF'); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
30 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
31 %%TEST_GLOBALS%% |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
32 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
33 daemon off; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
34 worker_shutdown_timeout 10ms; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
35 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
36 events { |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
37 } |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
38 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
39 stream { |
1609
f3ba4c74de31
Tests: added TEST_GLOBALS_STREAM variable support.
Andrei Belov <defan@nginx.com>
parents:
1381
diff
changeset
|
40 %%TEST_GLOBALS_STREAM%% |
f3ba4c74de31
Tests: added TEST_GLOBALS_STREAM variable support.
Andrei Belov <defan@nginx.com>
parents:
1381
diff
changeset
|
41 |
1245
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
42 server { |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
43 listen 127.0.0.1:8025; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
44 proxy_pass 127.0.0.1:8026; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
45 } |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
46 } |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
47 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
48 EOF |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
49 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
50 $t->run_daemon(\&Test::Nginx::SMTP::smtp_test_daemon); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
51 $t->run()->waitforsocket('127.0.0.1:' . port(8026)); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
52 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
53 ############################################################################### |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
54 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
55 my $s = Test::Nginx::SMTP->new(); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
56 $s->check(qr/^220 /, "greeting"); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
57 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
58 $s->send('EHLO example.com'); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
59 $s->check(qr/^250 /, "ehlo"); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
60 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
61 $t->reload(); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
62 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
63 ok($s->can_read(), 'stream connection shutdown'); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
64 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
65 undef $s; |
1259
caf59f42a3e1
Tests: handled GC deficiency in Perl < 5.22.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1245
diff
changeset
|
66 1; |
1245
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
67 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
68 ############################################################################### |