Mercurial > hg > nginx-tests
annotate image_filter.t @ 1766:a2572de6e840
Tests: tests for various http header variables.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Mon, 30 May 2022 21:32:08 +0300 |
parents | 451e787aad76 |
children |
rev | line source |
---|---|
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
2 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
3 # (C) Sergey Kandaurov |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
4 # (C) Nginx, Inc. |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
5 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
6 # Tests for image filter module. |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
7 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
8 ############################################################################### |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
9 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
10 use warnings; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
11 use strict; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
12 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
13 use Test::More; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
14 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
15 use Socket qw/CRLF/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
16 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
17 BEGIN { use FindBin; chdir($FindBin::Bin); } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
18 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
19 use lib 'lib'; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
20 use Test::Nginx; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
21 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
22 ############################################################################### |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
23 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
24 select STDERR; $| = 1; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
25 select STDOUT; $| = 1; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
26 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
27 eval { require GD; }; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
28 plan(skip_all => 'GD not installed') if $@; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
29 |
410
9fe6fc05c1d1
Tests: require "image_filter", not just "image".
Ruslan Ermilov <ru@nginx.com>
parents:
407
diff
changeset
|
30 my $t = Test::Nginx->new()->has(qw/http proxy map image_filter/)->plan(39) |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
31 ->write_file_expand('nginx.conf', <<'EOF'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
32 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
33 %%TEST_GLOBALS%% |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
34 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
35 daemon off; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
36 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
37 events { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
38 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
39 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
40 http { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
41 %%TEST_GLOBALS_HTTP%% |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
42 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
43 map $arg_w $w { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
44 "" '-'; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
45 default $arg_w; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
46 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
47 map $arg_h $h { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
48 "" '-'; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
49 default $arg_h; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
50 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
51 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
52 server { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
971
diff
changeset
|
53 listen 127.0.0.1:8080; |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
54 server_name localhost; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
55 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
56 location /size { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
57 image_filter size; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
58 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
59 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
60 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
61 location /test { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
62 image_filter test; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
63 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
64 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
65 location /test/off { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
66 image_filter off; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
67 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
68 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
69 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
70 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
71 location /resize { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
72 image_filter resize 10 12; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
73 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
74 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
75 location /resize1 { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
76 image_filter resize 10 -; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
77 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
78 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
79 location /resize2 { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
80 image_filter resize - 12; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
81 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
82 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
83 location /resize_var { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
84 image_filter resize $w $h; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
85 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
86 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
87 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
88 location /rotate { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
89 image_filter rotate 90; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
90 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
91 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
92 location /rotate_var { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
93 image_filter rotate $arg_r; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
94 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
95 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
96 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
97 location /crop { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
98 image_filter crop 60 80; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
99 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
100 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
101 location /crop_var { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
102 image_filter crop $arg_w $arg_h; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
103 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
104 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
105 location /crop_rotate { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
106 image_filter crop $arg_w $arg_h; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
107 image_filter rotate $arg_r; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
108 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
109 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
110 location /resize_rotate { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
111 image_filter resize $w $h; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
112 image_filter rotate $arg_r; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
113 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
114 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
115 location /resize_rotate/resize { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
116 image_filter resize 10 12; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
117 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
118 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
119 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
120 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
121 location /interlaced { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
122 image_filter resize 10 12; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
123 image_filter_interlace on; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
124 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
125 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
126 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
127 location /nontransparent { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
128 image_filter resize 10 12; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
129 image_filter_transparency off; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
130 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
131 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
132 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
133 location /quality { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
134 image_filter resize 10 12; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
135 image_filter_jpeg_quality 50; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
136 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
137 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
138 location /quality_var { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
139 image_filter resize 10 12; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
140 image_filter_jpeg_quality $arg_q; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
141 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
142 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
143 location /quality_var/quality { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
144 image_filter_jpeg_quality 60; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
145 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
146 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
147 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
148 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
149 location /buffer { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
150 image_filter test; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
151 image_filter_buffer 1k; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
152 alias %%TESTDIR%%/; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
153 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
154 location /proxy_buffer { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
155 image_filter rotate 90; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
156 image_filter_buffer 20; |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
971
diff
changeset
|
157 proxy_pass http://127.0.0.1:8081/; |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
158 proxy_buffering off; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
159 proxy_buffer_size 512; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
160 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
161 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
162 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
163 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
164 EOF |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
165 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
166 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
167 my $im = new GD::Image(100, 120); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
168 my $white = $im->colorAllocate(255, 255, 255); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
169 my $black = $im->colorAllocate(0, 0, 0); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
170 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
171 $im->transparent($white); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
172 $im->rectangle(0, 0, 99, 99, $black); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
173 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
174 $t->write_file('jpeg', $im->jpeg); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
175 $t->write_file('gif', $im->gif); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
176 $t->write_file('png', $im->png); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
177 $t->write_file('txt', 'SEE-THIS'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
178 |
908
adf5671391ac
Tests: use read_file subroutine in several tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
611
diff
changeset
|
179 $t->run_daemon(\&http_daemon, $t); |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
971
diff
changeset
|
180 $t->run()->waitforsocket('127.0.0.1:' . port(8081)); |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
181 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
182 ############################################################################### |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
183 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
184 like(http_head('/test/gif'), qr/200 OK/, 'test'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
185 like(http_head('/test/gif'), qr!Content-Type: image/gif!, 'test content-type'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
186 like(http_get('/test/txt'), qr/415 Unsupported/, 'test fail'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
187 like(http_get('/test/off/txt'), qr/SEE-THIS/, 'off'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
188 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
189 is(http_get_body('/size/txt'), '{}' . CRLF, 'size wrong type'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
190 like(http_head('/size/txt'), qr!Content-Type: application/json!, |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
191 'size content-type'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
192 like(http_get('/size/jpeg'), qr/"width": 100/, 'size width'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
193 like(http_get('/size/jpeg'), qr/"height": 120/, 'size height'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
194 like(http_get('/size/jpeg'), qr/"type": "jpeg"/, 'size jpeg'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
195 like(http_get('/size/gif'), qr/"type": "gif"/, 'size gif'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
196 like(http_get('/size/png'), qr/"type": "png"/, 'size png'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
197 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
198 is(gif_size('/resize/gif'), '10 12', 'resize'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
199 is(gif_size('/resize1/gif'), '10 12', 'resize 1'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
200 is(gif_size('/resize2/gif'), '10 12', 'resize 2'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
201 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
202 is(gif_size('/resize_var/gif?w=10&h=12'), '10 12', 'resize var'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
203 is(gif_size('/resize_var/gif?w=10'), '10 12', 'resize var 1'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
204 is(gif_size('/resize_var/gif?h=12'), '10 12', 'resize var 2'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
205 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
206 is(gif_size('/rotate/gif?r=90'), '120 100', 'rotate'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
207 is(gif_size('/rotate_var/gif?r=180'), '100 120', 'rotate var 1'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
208 is(gif_size('/rotate_var/gif?r=270'), '120 100', 'rotate var 2'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
209 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
210 $im = GD::Image->newFromGifData(http_get_body('/gif')); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
211 is($im->interlaced, 0, 'gif interlaced off'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
212 is($im->transparent, 0, 'gif transparent white'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
213 |
407
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
214 SKIP: { |
1542
451e787aad76
Tests: reworked libgd version detection.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1405
diff
changeset
|
215 skip 'broken/unknown libgd', 1 |
451e787aad76
Tests: reworked libgd version detection.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1405
diff
changeset
|
216 unless has_gdversion('2.1.0') or $ENV{TEST_NGINX_UNSAFE}; |
407
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
217 |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
218 $im = GD::Image->newFromGifData(http_get_body('/interlaced/gif')); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
219 is($im->interlaced, 1, 'gif interlaced on'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
220 |
407
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
221 } |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
222 |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
223 $im = GD::Image->newFromGifData(http_get_body('/nontransparent/gif')); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
224 is($im->transparent, -1, 'gif transparent loss'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
225 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
226 $im = GD::Image->newFromPngData(http_get_body('/png')); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
227 is($im->interlaced, 0, 'png interlaced off'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
228 is($im->transparent, 0, 'png transparent white'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
229 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
230 # this test produces libpng warning on STDERR: |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
231 # "Interlace handling should be turned on when using png_read_image" |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
232 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
233 SKIP: { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
234 skip 'can wedge nginx with SIGPIPE', 1 unless $ENV{TEST_NGINX_UNSAFE}; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
235 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
236 $im = GD::Image->newFromPngData(http_get_body('/interlaced/png')); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
237 is($im->interlaced, 1, 'png interlaced on'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
238 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
239 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
240 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
241 $im = GD::Image->newFromPngData(http_get_body('/nontransparent/png')); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
242 is($im->transparent, -1, 'png transparent loss'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
243 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
244 like(http_get('/resize/jpeg'), qr/quality = 75/, 'quality default'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
245 like(http_get('/quality/jpeg'), qr/quality = 50/, 'quality'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
246 like(http_get('/quality_var/jpeg?q=40'), qr/quality = 40/, 'quality var'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
247 like(http_get('/quality_var/quality/jpeg?q=40'), qr/quality = 60/, |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
248 'quality nested'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
249 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
250 is(gif_size('/crop/gif'), '60 80', 'crop'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
251 is(gif_size('/crop_var/gif?w=10&h=20'), '10 20', 'crop var'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
252 is(gif_size('/crop_rotate/gif?w=5&h=6&r=90'), '5 5', 'rotate before crop'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
253 is(gif_size('/resize_rotate/gif?w=5&h=6&r=90'), '6 5', 'rotate after resize'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
254 is(gif_size('/resize_rotate/resize/gif??w=5&h=6&r=90'), '10 12', |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
255 'resize rotate nested'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
256 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
257 like(http_get('/buffer/jpeg'), qr/415 Unsupported/, 'small buffer'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
258 isnt(http_get('/proxy_buffer/jpeg'), undef, 'small buffer proxy'); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
259 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
260 ############################################################################### |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
261 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
262 sub gif_size { |
1405
104701299b91
Tests: unpack GIF in VAX order to fix image_filter.t on big-endian.
Sergey Kandaurov <pluknet@nginx.com>
parents:
974
diff
changeset
|
263 join ' ', unpack("x6v2", http_get_body(@_)); |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
264 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
265 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
266 sub http_get_body { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
267 my ($uri) = @_; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
268 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
269 return undef if !defined $uri; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
270 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
271 my $text = http_get($uri); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
272 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
273 if ($text !~ /(.*?)\x0d\x0a?\x0d\x0a?(.*)/ms) { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
274 return undef; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
275 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
276 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
277 return $2; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
278 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
279 |
407
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
280 sub has_gdversion { |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
281 my ($need) = @_; |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
282 |
1542
451e787aad76
Tests: reworked libgd version detection.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1405
diff
changeset
|
283 my $v_str = `gdlib-config --version 2>&1` |
451e787aad76
Tests: reworked libgd version detection.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1405
diff
changeset
|
284 || eval { GD::VERSION_STRING() } or return 0; |
451e787aad76
Tests: reworked libgd version detection.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1405
diff
changeset
|
285 ($v_str) = $v_str =~ m!^([0-9.]+)!m or return 0; |
407
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
286 my @v = split(/\./, $v_str); |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
287 my ($n, $v); |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
288 |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
289 for $n (split(/\./, $need)) { |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
290 $v = shift @v || 0; |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
291 return 0 if $n > $v; |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
292 return 1 if $v > $n; |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
293 } |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
294 |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
295 return 1; |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
296 } |
2711722a85c3
Tests: added safety measure for old libgd versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
398
diff
changeset
|
297 |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
298 ############################################################################### |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
299 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
300 # serve static files without Content-Length |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
301 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
302 sub http_daemon { |
908
adf5671391ac
Tests: use read_file subroutine in several tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
611
diff
changeset
|
303 my ($t) = @_; |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
304 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
305 my $server = IO::Socket::INET->new( |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
306 Proto => 'tcp', |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
307 LocalHost => '127.0.0.1', |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
971
diff
changeset
|
308 LocalPort => port(8081), |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
309 Listen => 5, |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
310 Reuse => 1 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
311 ) |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
312 or die "Can't create listening socket: $!\n"; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
313 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
314 local $SIG{PIPE} = 'IGNORE'; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
315 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
316 while (my $client = $server->accept()) { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
317 $client->autoflush(1); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
318 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
319 my $headers = ''; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
320 my $uri = ''; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
321 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
322 while (<$client>) { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
323 $headers .= $_; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
324 last if (/^\x0d?\x0a?$/); |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
325 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
326 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
327 next if $headers eq ''; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
328 $uri = $1 if $headers =~ /^\S+\s+([^ ]+)\s+HTTP/i; |
908
adf5671391ac
Tests: use read_file subroutine in several tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
611
diff
changeset
|
329 my $data = $t->read_file($uri); |
398
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
330 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
331 print $client <<EOF; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
332 HTTP/1.1 200 OK |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
333 Connection: close |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
334 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
335 $data |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
336 EOF |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
337 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
338 } continue { |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
339 close $client; |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
340 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
341 } |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
342 |
077ffeac825c
Tests: image filter tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
343 ############################################################################### |