Mercurial > hg > nginx-tests
annotate random_index.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 |
---|---|
109
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 # Tests for random index module. |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 ############################################################################### |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 use warnings; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 use strict; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
12 use Test::More; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
14 BEGIN { use FindBin; chdir($FindBin::Bin); } |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
15 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
16 use lib 'lib'; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
17 use Test::Nginx; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 ############################################################################### |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 select STDERR; $| = 1; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 select STDOUT; $| = 1; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 |
574
2cd00179f4b2
Tests: has_feature() introduced in Test::Nginx.
Sergey Kandaurov <pluknet@nginx.com>
parents:
249
diff
changeset
|
24 my $t = Test::Nginx->new()->has(qw/http random_index symlink/)->plan(1) |
109
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
25 ->write_file_expand('nginx.conf', <<'EOF'); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
26 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
27 %%TEST_GLOBALS%% |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
28 |
249
6a0d934950bc
Tests: remove extra spaces in "daemon off".
Maxim Dounin <mdounin@mdounin.ru>
parents:
223
diff
changeset
|
29 daemon off; |
109
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
30 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 events { |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 } |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
33 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
34 http { |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
35 %%TEST_GLOBALS_HTTP%% |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 server { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
38 listen 127.0.0.1:8080; |
109
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
39 server_name localhost; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 location / { |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
42 random_index on; |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
43 } |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
44 } |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
45 } |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
46 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
47 EOF |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
48 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
49 my $d = $t->testdir(); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
50 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
51 mkdir("$d/x"); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
52 mkdir("$d/x/test-dir"); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
53 symlink("$d/x/test-dir", "$d/x/test-dir-link"); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
54 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
55 $t->write_file('test-file', 'RIGHT'); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
56 symlink("$d/test-file", "$d/x/test-file-link"); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
57 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
58 $t->run(); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
59 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
60 ############################################################################### |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
61 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
62 like(http_get('/x/'), qr/RIGHT/s, 'file'); |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
63 |
d125e51ea596
Tests: add random index module test for symlink issue.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
64 ############################################################################### |