Mercurial > hg > nginx-tests
annotate worker_shutdown_timeout_stream.t @ 1259:caf59f42a3e1
Tests: handled GC deficiency in Perl < 5.22.
This allows to unbreak running worker_shutdown_timeout tests on stable.
See for more details: https://rt.perl.org/Public/Bug/Display.html?id=122556
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 08 Dec 2017 15:39:03 +0300 |
parents | 6d7707405632 |
children | 97c8280de681 |
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 { |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
40 server { |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
41 listen 127.0.0.1:8025; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
42 proxy_pass 127.0.0.1:8026; |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
43 } |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
44 } |
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 EOF |
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 $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
|
49 $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
|
50 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
51 ############################################################################### |
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 my $s = Test::Nginx::SMTP->new(); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
54 $s->check(qr/^220 /, "greeting"); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
55 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
56 $s->send('EHLO example.com'); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
57 $s->check(qr/^250 /, "ehlo"); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
58 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
59 $t->reload(); |
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 TODO: { |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
62 local $TODO = 'not yet' unless $t->has_version('1.13.7'); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
63 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
64 ok($s->can_read(), 'stream connection shutdown'); |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
65 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
66 } |
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 undef $s; |
1259
caf59f42a3e1
Tests: handled GC deficiency in Perl < 5.22.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1245
diff
changeset
|
69 1; |
1245
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
70 |
6d7707405632
Tests: worker_shutdown_timeout within the stream module.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
71 ############################################################################### |