# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1259685502 -10800
# Node ID c8341d95297e8a9c8c1da1a85b9cde0afc0646c7
# Parent  cb1b04d8de2962bdb6c542d6c9e1efde3cbf34eb
Tests: add some HEAD gzip tests.

diff --git a/gzip.t b/gzip.t
--- a/gzip.t
+++ b/gzip.t
@@ -21,7 +21,7 @@ use Test::Nginx qw/ :DEFAULT :gzip /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has('gzip')->plan(6);
+my $t = Test::Nginx->new()->has('gzip')->plan(8);
 
 $t->write_file_expand('nginx.conf', <<'EOF');
 
@@ -77,4 +77,22 @@ unlike(http_gzip_request('/'), qr/Accept
 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
+}
+
+###############################################################################