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');