Mercurial > hg > nginx-tests

comparison fastcgi_variables.t @ 688:d40623cda299

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: added fastcgi variables tests.
author Andrey Zelenkov <zelenkov@nginx.com>
date Fri, 11 Sep 2015 17:51:22 +0300
parents
children e9064d691790
comparison
equal deleted inserted replaced
687:89cfb7397ba1 688:d40623cda299
1 #!/usr/bin/perl
2
3 # (C) Andrey Zelenkov
4 # (C) Nginx, Inc.
5
6 # Test for fastcgi variables.
7
8 ###############################################################################
9
10 use warnings;
11 use strict;
12
13 use Test::More;
14
15 use Socket qw/ CRLF /;
16
17 BEGIN { use FindBin; chdir($FindBin::Bin); }
18
19 use lib 'lib';
20 use Test::Nginx;
21
22 ###############################################################################
23
24 select STDERR; $| = 1;
25 select STDOUT; $| = 1;
26
27 eval { require FCGI; };
28 plan(skip_all => 'FCGI not installed') if $@;
29 plan(skip_all => 'win32') if $^O eq 'MSWin32';
30
31 my $t = Test::Nginx->new()->has(qw/http fastcgi rewrite/)->plan(3)
32 ->write_file_expand('nginx.conf', <<'EOF');
33
34 %%TEST_GLOBALS%%
35
36 daemon off;
37
38 events {
39 }
40
41 http {
42 %%TEST_GLOBALS_HTTP%%
43
44 server {
45 listen 127.0.0.1:8080;
46 server_name localhost;
47
48 add_header X-Script-Name $fastcgi_script_name;
49 add_header X-Path-Info $fastcgi_path_info;
50
51 location / {
52 fastcgi_pass 127.0.0.1:8081;
53 fastcgi_index index.php;
54 }
55
56 location /info {
57 fastcgi_pass 127.0.0.1:8081;
58 fastcgi_split_path_info ^(.+\.php)(.*)$;
59 }
60 }
61 }
62
63 EOF
64
65 $t->run_daemon(\&fastcgi_daemon);
66 $t->run()->waitforsocket('127.0.0.1:8081');
67
68 ###############################################################################
69
70 like(http_get('/'), qr/X-Script-Name: \/index\.php/ms, 'script name');
71 like(http_get('/info.php/path/info'), qr/X-Script-Name: \/info\.php/ms,
72 'info script name');
73 like(http_get('/info.php/path/info'), qr/X-Path-Info: \/path\/info/ms,
74 'info path');
75
76 ###############################################################################
77
78 sub fastcgi_daemon {
79 my $socket = FCGI::OpenSocket('127.0.0.1:8081', 5);
80 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV,
81 $socket);
82
83 while( $request->Accept() >= 0 ) {
84 print CRLF . CRLF;
85 }
86
87 FCGI::CloseSocket($socket);
88 }
89
90 ###############################################################################