Mercurial > hg > nginx-tests
annotate ssi_waited.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 | 882267679006 |
children |
rev | line source |
---|---|
124
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 # Tests for nginx ssi module, waited subrequests. |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 ############################################################################### |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 use warnings; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 use strict; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
12 use Test::More; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
14 BEGIN { use FindBin; chdir($FindBin::Bin); } |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
15 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
16 use lib 'lib'; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
17 use Test::Nginx; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 ############################################################################### |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 select STDERR; $| = 1; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 select STDOUT; $| = 1; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 |
593
6c0a5903d0ae
Tests: cleanup now duplicating tests for no alerts.
Sergey Kandaurov <pluknet@nginx.com>
parents:
249
diff
changeset
|
24 my $t = Test::Nginx->new()->has(qw/http ssi/)->plan(1); |
124
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
25 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
26 $t->write_file_expand('nginx.conf', <<'EOF'); |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
27 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
28 %%TEST_GLOBALS%% |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
29 |
249
6a0d934950bc
Tests: remove extra spaces in "daemon off".
Maxim Dounin <mdounin@mdounin.ru>
parents:
166
diff
changeset
|
30 daemon off; |
124
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 events { |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
33 } |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
34 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
35 http { |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 %%TEST_GLOBALS_HTTP%% |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
38 server { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
39 listen 127.0.0.1:8080; |
124
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 server_name localhost; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 location / { |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
42 ssi on; |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
43 } |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
44 } |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
45 } |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
46 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
47 EOF |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
48 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
49 $t->write_file('index.html', 'x<!--#include virtual="/first.html" -->' . |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
50 'x<!--#include virtual="/second.html" -->x'); |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
51 $t->write_file('first.html', 'FIRST'); |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
52 $t->write_file('second.html', |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
53 '<!--#include virtual="/waited.html" wait="yes"-->xSECOND'); |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
54 $t->write_file('waited.html', 'WAITED'); |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
55 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
56 $t->run(); |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
57 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
58 ############################################################################### |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
59 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
60 like(http_get('/'), qr/^xFIRSTxWAITEDxSECONDx$/m, 'waited non-active'); |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
61 |
6edd29865109
Tests: ssi waited subrequests test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
62 ############################################################################### |