Mercurial > hg > nginx-tests
view gzip.t @ 540:481d705b8610
Tests: SSL support in mail backends.
Socket is now embedded into every mail module.
Socket methods are wrapped where appropriate.
The new "SSL" extra flag specifies to accept connection over SSL.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 03 Apr 2015 00:11:38 +0300 |
parents | 6a0d934950bc |
children | e9064d691790 |
line wrap: on
line source
#!/usr/bin/perl # (C) Maxim Dounin # Tests for nginx gzip filter module. ############################################################################### use warnings; use strict; use Test::More; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx qw/ :DEFAULT :gzip /; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/http proxy gzip/)->plan(8); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8080; server_name localhost; location / { gzip on; } location /proxy/ { gzip on; proxy_pass http://127.0.0.1:8080/local/; } location /local/ { gzip off; alias %%TESTDIR%%/; } } } EOF $t->write_file('index.html', 'X' x 64); $t->run(); ############################################################################### my $r; $r = http_gzip_request('/'); like($r, qr/^Content-Encoding: gzip/m, 'gzip'); http_gzip_like($r, qr/^X{64}\Z/, 'gzip content correct'); $r = http_gzip_request('/proxy/'); like($r, qr/^Content-Encoding: gzip/m, 'gzip proxied'); http_gzip_like($r, qr/^X{64}\Z/, 'gzip proxied content'); # Accept-Ranges headers should be cleared unlike(http_gzip_request('/'), qr/Accept-Ranges/im, 'cleared accept-ranges'); unlike(http_gzip_request('/proxy/'), qr/Accept-Ranges/im, 'cleared headers from proxy'); # HEAD requests should return correct headers like(http_gzip_head('/'), qr/Content-Encoding: gzip/, 'gzip head'); unlike(http_head('/'), qr/Content-Encoding: gzip/, 'no gzip head'); ############################################################################### sub http_gzip_head { my ($uri) = @_; return http(<<EOF); HEAD $uri HTTP/1.1 Host: localhost Connection: close Accept-Encoding: gzip EOF } ###############################################################################