Mercurial > hg > nginx-tests
changeset 41:1b3c22a87e5d
Tests: add some HEAD tests.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sat, 01 Nov 2008 16:19:28 +0300 |
parents | 3325fa3f515c |
children | 7435db149168 |
files | fastcgi.t lib/Test/Nginx.pm memcached.t |
diffstat | 3 files changed, 16 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/fastcgi.t Sat Nov 01 16:13:02 2008 +0300 +++ b/fastcgi.t Sat Nov 01 16:19:28 2008 +0300 @@ -24,7 +24,7 @@ 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('/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 {
--- a/lib/Test/Nginx.pm Sat Nov 01 16:13:02 2008 +0300 +++ b/lib/Test/Nginx.pm Sat Nov 01 16:19:28 2008 +0300 @@ -11,7 +11,7 @@ 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 @@ EOF } +sub http_head($) { + my ($url) = @_; + return http(<<EOF); +HEAD $url HTTP/1.0 +Host: localhost + +EOF +} + sub http($) { my ($request) = @_; my $reply;
--- a/memcached.t Sat Nov 01 16:13:02 2008 +0300 +++ b/memcached.t Sat Nov 01 16:19:28 2008 +0300 @@ -24,7 +24,7 @@ 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('/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'); + ###############################################################################