Mercurial > hg > nginx-tests

comparison fastcgi.t @ 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 3325fa3f515c
children daa295331acd
comparison
equal deleted inserted replaced
40:3325fa3f515c 41:1b3c22a87e5d
22 select STDOUT; $| = 1; 22 select STDOUT; $| = 1;
23 23
24 eval { require FCGI; }; 24 eval { require FCGI; };
25 plan(skip_all => 'FCGI not installed') if $@; 25 plan(skip_all => 'FCGI not installed') if $@;
26 26
27 my $t = Test::Nginx->new()->plan(3) 27 my $t = Test::Nginx->new()->plan(4)
28 ->write_file_expand('nginx.conf', <<'EOF'); 28 ->write_file_expand('nginx.conf', <<'EOF');
29 29
30 master_process off; 30 master_process off;
31 daemon off; 31 daemon off;
32 32
60 60
61 like(http_get('/'), qr/SEE-THIS/, 'fastcgi request'); 61 like(http_get('/'), qr/SEE-THIS/, 'fastcgi request');
62 like(http_get('/redir'), qr/302/, 'fastcgi redirect'); 62 like(http_get('/redir'), qr/302/, 'fastcgi redirect');
63 like(http_get('/'), qr/^3$/m, 'fastcgi third request'); 63 like(http_get('/'), qr/^3$/m, 'fastcgi third request');
64 64
65 unlike(http_head('/'), qr/SEE-THIS/, 'no data in HEAD');
66
65 ############################################################################### 67 ###############################################################################
66 68
67 sub fastcgi_daemon { 69 sub fastcgi_daemon {
68 my $socket = FCGI::OpenSocket(':8081', 5); 70 my $socket = FCGI::OpenSocket(':8081', 5);
69 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, 71 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV,