Mercurial > hg > nginx-tests

annotate scgi_gzip.t @ 198:d17bd21a0378

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: SCGI fixed in 1.1.12/1.0.12, remove TODO.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 06 Feb 2012 19:06:24 +0400
parents eb4c40260ee7
children a7cc4371f4ad
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
187
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
1 #!/usr/bin/perl
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
2
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
3 # (C) Maxim Dounin
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
4
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
5 # Test for scgi backend and gzip.
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
6
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
7 ###############################################################################
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
8
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
9 use warnings;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
10 use strict;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
11
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
12 use Test::More;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
13
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
14 BEGIN { use FindBin; chdir($FindBin::Bin); }
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
15
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
16 use lib 'lib';
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
17 use Test::Nginx qw/ :DEFAULT :gzip /;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
18
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
19 ###############################################################################
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
20
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
21 select STDERR; $| = 1;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
22 select STDOUT; $| = 1;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
23
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
24 eval { require SCGI; };
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
25 plan(skip_all => 'SCGI not installed') if $@;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
26
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
27 my $t = Test::Nginx->new()->has(qw/http scgi gzip/)->plan(1)
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
28 ->write_file_expand('nginx.conf', <<'EOF');
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
29
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
30 %%TEST_GLOBALS%%
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
31
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
32 daemon off;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
33
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
34 events {
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
35 }
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
36
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
37 http {
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
38 %%TEST_GLOBALS_HTTP%%
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
39
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
40 server {
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
41 listen 127.0.0.1:8080;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
42 server_name localhost;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
43
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
44 location / {
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
45 gzip on;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
46 scgi_pass 127.0.0.1:8081;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
47 scgi_param SCGI 1;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
48 scgi_param REQUEST_URI $request_uri;
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
49 scgi_param HTTP_X_BLAH "blah";
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
50 }
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
51 }
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
52 }
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
53
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
54 EOF
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
55
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
56 $t->run_daemon(\&scgi_daemon);
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
57 $t->run();
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
58
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
59 ###############################################################################
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
60
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
61 like(http_gzip_request('/'), qr/Content-Encoding: gzip/, 'scgi request');
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
62
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
63 ###############################################################################
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
64
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
65 sub scgi_daemon {
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
66 my $server = IO::Socket::INET->new(
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
67 Proto => 'tcp',
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
68 LocalHost => '127.0.0.1:8081',
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
69 Listen => 5,
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
70 Reuse => 1
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
71 )
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
72 or die "Can't create listening socket: $!\n";
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
73
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
74 my $scgi = SCGI->new($server, blocking => 1);
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
75
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
76 while (my $request = $scgi->accept()) {
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
77 $request->read_env();
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
78
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
79 $request->connection()->print(<<EOF);
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
80 Content-Type: text/html
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
81
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
82 SEE-THIS-1234567890-1234567890
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
83 EOF
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
84 }
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
85 }
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
86
eb4c40260ee7 Tests: test for scgi and gzip (ticket #66).
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
87 ###############################################################################