Mercurial > hg > ngx_http_gunzip_filter_module
diff t/gunzip.t @ 1:0dd7d109e56b
Gunzip: add more tests and improve docs.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sun, 20 Dec 2009 03:55:31 +0300 |
parents | a75d4ad9c5d2 |
children | 7170c171150c |
line wrap: on
line diff
--- a/t/gunzip.t +++ b/t/gunzip.t @@ -10,7 +10,7 @@ use warnings; use strict; use Test::More; -use Test::Nginx; +use Test::Nginx qw/ :DEFAULT :gzip /; ############################################################################### @@ -20,7 +20,7 @@ select STDOUT; $| = 1; eval { require IO::Compress::Gzip; }; Test::More::plan(skip_all => "IO::Compress::Gzip not found") if $@; -my $t = Test::Nginx->new()->has('--with-http_gzip_static_module')->plan(10); +my $t = Test::Nginx->new()->has('--with-http_gzip_static_module')->plan(12); $t->write_file_expand('nginx.conf', <<'EOF'); @@ -83,13 +83,17 @@ IO::Compress::Gzip::gzip(\$in => \$out); pass('runs'); -my $t1 = http_get('/t1'); -unlike($t1, qr/Content-Encoding/, 'no content encoding'); -like($t1, qr/^(X\d\d\dXXXXXX){100}$/m, 'correct ungzipped response'); +my $r = http_get('/t1'); +unlike($r, qr/Content-Encoding/, 'no content encoding'); +like($r, qr/^(X\d\d\dXXXXXX){100}$/m, 'correct gunzipped response'); + +$r = http_gzip_request('/t1'); +like($r, qr/Content-Encoding: gzip/, 'gzip still works - encoding'); +like($r, qr/\Q$out\E/, 'gzip still works - content'); like(http_get('/t2'), qr/^(X\d\d\dXXXXXX){200}$/m, 'multiple gzip members'); -like(http_get('/error'), qr/^(X\d\d\dXXXXXX){100}$/m, 'errors ungzipped'); +like(http_get('/error'), qr/^(X\d\d\dXXXXXX){100}$/m, 'errors gunzipped'); unlike(http_head('/t1'), qr/Content-Encoding/, 'head - no content encoding');