| #!/usr/bin/perl |
| |
| # (C) Maxim Dounin |
| |
| # Test for scgi backend. |
| |
| ############################################################################### |
| |
| use warnings; |
| use strict; |
| |
| use Test::More; |
| |
| BEGIN { use FindBin; chdir($FindBin::Bin); } |
| |
| use lib 'lib'; |
| use Test::Nginx; |
| |
| ############################################################################### |
| |
| select STDERR; $| = 1; |
| select STDOUT; $| = 1; |
| |
| eval { require SCGI; }; |
| plan(skip_all => 'SCGI not installed') if $@; |
| |
| my $t = Test::Nginx->new()->has(qw/http scgi/)->plan(4) |
| ->write_file_expand('nginx.conf', <<'EOF'); |
| |
| %%TEST_GLOBALS%% |
| |
| daemon off; |
| |
| events { |
| } |
| |
| http { |
| %%TEST_GLOBALS_HTTP%% |
| |
| server { |
| listen 127.0.0.1:8080; |
| server_name localhost; |
| |
| location / { |
| scgi_pass 127.0.0.1:8081; |
| scgi_param SCGI 1; |
| scgi_param REQUEST_URI $request_uri; |
| } |
| } |
| } |
| |
| EOF |
| |
| $t->run_daemon(\&scgi_daemon); |
| $t->run(); |
| |
| ############################################################################### |
| |
| like(http_get('/'), qr/SEE-THIS/, 'scgi request'); |
| like(http_get('/redir'), qr/302/, 'scgi redirect'); |
| like(http_get('/'), qr/^3$/m, 'scgi third request'); |
| |
| unlike(http_head('/'), qr/SEE-THIS/, 'no data in HEAD'); |
| |
| ############################################################################### |
| |
| sub scgi_daemon { |
| my $server = IO::Socket::INET->new( |
| Proto => 'tcp', |
| LocalHost => '127.0.0.1:8081', |
| Listen => 5, |
| Reuse => 1 |
| ) |
| or die "Can't create listening socket: $!\n"; |
| |
| my $scgi = SCGI->new($server, blocking => 1); |
| my $count = 0; |
| |
| while (my $request = $scgi->accept()) { |
| $count++; |
| $request->read_env(); |
| |
| $request->connection()->print(<<EOF); |
| Location: http://127.0.0.1:8080/redirect |
| Content-Type: text/html |
| |
| SEE-THIS |
| $count |
| EOF |
| } |
| } |
| |
| ############################################################################### |