Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 41:1b3c22a87e5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: add some HEAD tests.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 01 Nov 2008 16:19:28 +0300
parents 6cf314ec8f7b
children d68b85def521
comparison
equal deleted inserted replaced
40:3325fa3f515c 41:1b3c22a87e5d
9 use warnings; 9 use warnings;
10 use strict; 10 use strict;
11 11
12 use base qw/ Exporter /; 12 use base qw/ Exporter /;
13 13
14 our @EXPORT = qw/ log_in log_out http http_get /; 14 our @EXPORT = qw/ log_in log_out http http_get http_head /;
15 15
16 ############################################################################### 16 ###############################################################################
17 17
18 use File::Temp qw/ tempdir /; 18 use File::Temp qw/ tempdir /;
19 use IO::Socket; 19 use IO::Socket;
188 188
189 sub http_get($) { 189 sub http_get($) {
190 my ($url) = @_; 190 my ($url) = @_;
191 return http(<<EOF); 191 return http(<<EOF);
192 GET $url HTTP/1.0 192 GET $url HTTP/1.0
193 Host: localhost
194
195 EOF
196 }
197
198 sub http_head($) {
199 my ($url) = @_;
200 return http(<<EOF);
201 HEAD $url HTTP/1.0
193 Host: localhost 202 Host: localhost
194 203
195 EOF 204 EOF
196 } 205 }
197 206