Mercurial > hg > nginx-tests
annotate autoindex_format.t @ 1757:ce8b0c9452ae
Tests: added extended js internalRedirect tests.
author | Dmitry Volyntsev <xeioex@nginx.com> |
---|---|
date | Thu, 28 Apr 2022 17:20:27 -0700 |
parents | 81579df2ba8c |
children |
rev | line source |
---|---|
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
2 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
4 # (C) Sergey Kandaurov |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
5 # (C) Nginx, Inc. |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
6 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
7 # Tests for autoindex module with autoindex_format directive. |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
8 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
9 ############################################################################### |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
10 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
11 use warnings; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
12 use strict; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
13 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
14 use Test::More; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
15 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
16 BEGIN { use FindBin; chdir($FindBin::Bin); } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
17 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
18 use lib 'lib'; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
19 use Test::Nginx; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
20 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
21 ############################################################################### |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
22 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
23 select STDERR; $| = 1; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
24 select STDOUT; $| = 1; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
25 |
574
2cd00179f4b2
Tests: has_feature() introduced in Test::Nginx.
Sergey Kandaurov <pluknet@nginx.com>
parents:
568
diff
changeset
|
26 my $t = Test::Nginx->new()->has(qw/http autoindex symlink/)->plan(37) |
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
27 ->write_file_expand('nginx.conf', <<'EOF'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
28 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
29 %%TEST_GLOBALS%% |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
30 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
31 daemon off; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
32 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
33 events { |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
34 } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
35 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
36 http { |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
37 %%TEST_GLOBALS_HTTP%% |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
38 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
39 server { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
40 listen 127.0.0.1:8080; |
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
41 server_name localhost; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
42 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
43 autoindex on; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
44 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
45 location /xml/ { |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
46 autoindex_format xml; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
47 alias %%TESTDIR%%/; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
48 } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
49 location /json/ { |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
50 autoindex_format json; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
51 alias %%TESTDIR%%/; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
52 } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
53 location /jsonp/ { |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
54 autoindex_format jsonp; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
55 alias %%TESTDIR%%/; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
56 } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
57 } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
58 } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
59 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
60 EOF |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
61 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
62 my $d = $t->testdir(); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
63 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
64 mkdir("$d/test-dir"); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
65 symlink("$d/test-dir", "$d/test-dir-link"); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
66 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
67 $t->write_file('test-file', 'x' x 42); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
68 symlink("$d/test-file", "$d/test-file-link"); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
69 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
70 $t->write_file('test-\'-quote', ''); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
71 $t->write_file('test-"-double', ''); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
72 $t->write_file('test-<>-angle', ''); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
73 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
74 mkdir($d . '/utf8'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
75 $t->write_file('utf8/test-utf8-' . ("\xd1\x84" x 3), ''); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
76 $t->write_file('utf8/test-utf8-' . ("\xd1\x84" x 45), ''); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
77 |
568
907e89fba9c3
Tests: removed TODO and try_run() checks for legacy versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
534
diff
changeset
|
78 $t->run(); |
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
79 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
80 ############################################################################### |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
81 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
82 my ($r, $mtime, $data); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
83 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
84 $r = http_get('/xml/'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
85 $mtime = qr/mtime="\d{4}-\d\d-\d\dT\d\d:\d\d:\d\dZ"/; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
86 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
87 like($r, qr!Content-Type: text/xml; charset=utf-8!, 'xml content type'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
88 like($r, qr!<file(\s+\w+="[^=]*?")+\s*>test-file</file>!, |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
89 'xml file format'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
90 like($r, qr!<directory(\s+\w+="[^=]*?")+\s*>test-dir</directory>!, |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
91 'xml dir format'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
92 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
93 ($data) = $r =~ qr!<file\s+(.*?)>test-file</file>!; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
94 like($data, $mtime, 'xml file mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
95 like($data, qr!size="42"!, 'xml file size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
96 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
97 ($data) = $r =~ qr!<file\s+(.*?)>test-file-link</file>!; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
98 like($data, $mtime, 'xml file link mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
99 like($data, qr!size="42"!, 'xml file link size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
100 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
101 ($data) = $r =~ qr!<directory\s+(.*?)>test-dir</directory>!; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
102 like($data, $mtime, 'xml dir mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
103 unlike($data, qr!size="\d+"!, 'xml dir size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
104 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
105 ($data) = $r =~ qr!<directory\s+(.*?)>test-dir-link</directory>!; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
106 like($data, $mtime, 'xml dir link mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
107 unlike($data, qr!size="\d+"!, 'xml dir link size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
108 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
109 like($r, qr!<file.*?>test-\'-quote</file>!, 'xml quote'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
110 like($r, qr!<file.*?>test-\"-double</file>!, 'xml double'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
111 like($r, qr!<file.*?>test-<>-angle</file>!, 'xml angle'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
112 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
113 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
114 $r = http_get('/json/'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
115 $mtime = qr/"mtime"\s*:\s*"\w{3}, \d\d \w{3} \d{4} \d\d:\d\d:\d\d \w{3}"/; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
116 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
117 my $string = qr!"(?:[^\\"]+|\\["\\/bfnrt])*"!; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
118 my $number = qr!-?(?:0|[1-9]\d*)(?:\.\d+)?(?:[eE][-+]?\d+)?!; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
119 my $kv = qr!\s*$string\s*:\s*($string|$number)\s*!; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
120 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
121 like($r, qr!Content-Type: application/json!, 'json content type'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
122 like($r, qr!{$kv(,$kv)*}!, 'json format'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
123 |
1351
81579df2ba8c
Tests: fixed perl 5.28 "Unescaped left brace in regex" warnings.
Sergey Kandaurov <pluknet@nginx.com>
parents:
974
diff
changeset
|
124 ($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-file".*?})!; |
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
125 like($data, qr!"type"\s*:\s*"file"!, 'json file'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
126 like($data, $mtime, 'json file mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
127 like($data, qr!"size"\s*:\s*42!, 'json file size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
128 |
1351
81579df2ba8c
Tests: fixed perl 5.28 "Unescaped left brace in regex" warnings.
Sergey Kandaurov <pluknet@nginx.com>
parents:
974
diff
changeset
|
129 ($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-file-link".*?})!; |
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
130 like($data, qr!"type"\s*:\s*"file"!, 'json file link'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
131 like($data, $mtime, 'json file link mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
132 like($data, qr!"size"\s*:\s*42!, 'json file link size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
133 |
1351
81579df2ba8c
Tests: fixed perl 5.28 "Unescaped left brace in regex" warnings.
Sergey Kandaurov <pluknet@nginx.com>
parents:
974
diff
changeset
|
134 ($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-dir".*?})!; |
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
135 like($data, qr!"type"\s*:\s*"directory"!, 'json dir'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
136 like($data, $mtime, 'json dir mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
137 unlike($data, qr!"size"\s*:\s*$number!, 'json dir size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
138 |
1351
81579df2ba8c
Tests: fixed perl 5.28 "Unescaped left brace in regex" warnings.
Sergey Kandaurov <pluknet@nginx.com>
parents:
974
diff
changeset
|
139 ($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-dir-link".*?})!; |
518
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
140 like($data, qr!"type"\s*:\s*"directory"!, 'json dir link'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
141 like($data, $mtime, 'json dir link mtime'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
142 unlike($data, qr!"size"\s*:\s*$number!, 'json dir link size'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
143 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
144 like($r, qr!"name"\s*:\s*"test-'-quote"!, 'json quote'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
145 like($r, qr!"name"\s*:\s*"test-\\\"-double"!, 'json double'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
146 like($r, qr!"name"\s*:\s*"test-<>-angle"!, 'json angle'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
147 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
148 like(http_get_body('/jsonp/test-dir/?callback=foo'), |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
149 qr/^\s*foo\s*\(\s*\[\s*\]\s*\)\s*;\s*$/ms, 'jsonp callback'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
150 like(http_get_body('/jsonp/test-dir/?callback='), |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
151 qr/^\s*\[\s*\s*\]\s*$/ms, 'jsonp callback empty'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
152 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
153 # utf8 tests |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
154 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
155 $r = http_get('/xml/utf8/'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
156 like($r, qr!test-utf8-(\xd1\x84){3}</file>!ms, 'xml utf8'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
157 like($r, qr!test-utf8-(\xd1\x84){45}</file>!ms, 'xml utf8 long'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
158 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
159 $r = http_get('/json/utf8/'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
160 like($r, qr!test-utf8-(\xd1\x84){3}"!ms, 'json utf8'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
161 like($r, qr!test-utf8-(\xd1\x84){45}"!ms, 'json utf8 long'); |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
162 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
163 ############################################################################### |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
164 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
165 sub http_get_body { |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
166 my ($uri) = @_; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
167 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
168 return undef if !defined $uri; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
169 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
170 http_get($uri) =~ /(.*?)\x0d\x0a?\x0d\x0a?(.*)/ms; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
171 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
172 return $2; |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
173 } |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
174 |
9edb609a2642
Tests: autoindex module tests with autoindex_format.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
175 ############################################################################### |