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 +++ 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 {
--- 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;
--- 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'); + ###############################################################################