# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1225545568 -10800
# Node ID 1b3c22a87e5db39f8cad90d1d7ac29bd72335ca0
# Parent  3325fa3f515ccd7490326cba2128185dcb22f2d0
Tests: add some HEAD tests.

diff --git a/fastcgi.t b/fastcgi.t
--- a/fastcgi.t
+++ b/fastcgi.t
@@ -24,7 +24,7 @@ select STDOUT; $| = 1;
 eval { require FCGI; };
 plan(skip_all => 'FCGI not installed') if $@;
 
-my $t = Test::Nginx->new()->plan(3)
+my $t = Test::Nginx->new()->plan(4)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 master_process off;
@@ -62,6 +62,8 @@ like(http_get('/'), qr/SEE-THIS/, 'fastc
 like(http_get('/redir'), qr/302/, 'fastcgi redirect');
 like(http_get('/'), qr/^3$/m, 'fastcgi third request');
 
+unlike(http_head('/'), qr/SEE-THIS/, 'no data in HEAD');
+
 ###############################################################################
 
 sub fastcgi_daemon {
diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm
--- a/lib/Test/Nginx.pm
+++ b/lib/Test/Nginx.pm
@@ -11,7 +11,7 @@ use strict;
 
 use base qw/ Exporter /;
 
-our @EXPORT = qw/ log_in log_out http http_get /;
+our @EXPORT = qw/ log_in log_out http http_get http_head /;
 
 ###############################################################################
 
@@ -195,6 +195,15 @@ Host: localhost
 EOF
 }
 
+sub http_head($) {
+	my ($url) = @_;
+	return http(<<EOF);
+HEAD $url HTTP/1.0
+Host: localhost
+
+EOF
+}
+
 sub http($) {
 	my ($request) = @_;
 	my $reply;
diff --git a/memcached.t b/memcached.t
--- a/memcached.t
+++ b/memcached.t
@@ -24,7 +24,7 @@ select STDOUT; $| = 1;
 eval { require Cache::Memcached; };
 plain(skip_all => 'Cache::Memcached not installed') if $@;
 
-my $t = Test::Nginx->new()->has('rewrite')->has_daemon('memcached')->plan(3)
+my $t = Test::Nginx->new()->has('rewrite')->has_daemon('memcached')->plan(4)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 master_process off;
@@ -72,4 +72,6 @@ like(http_get('/'), qr/SEE-THIS/, 'memca
 like(http_get('/notfound'), qr/404/, 'memcached not found');
 like(http_get('/next'), qr/404/, 'not found with memcached_next_upstream');
 
+unlike(http_head('/'), qr/SEE-THIS/, 'memcached no data in HEAD');
+
 ###############################################################################