Mercurial > hg > nginx-tests

comparison image_filter.t @ 398:077ffeac825c

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