Mercurial > hg > nginx-tests
annotate ssi-include-big.t @ 45:d68b85def521
Tests: use 127.0.0.1 instead of localhost.
Name 'localhost' is ambiguous if ipv6 present on system.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sun, 02 Nov 2008 15:01:41 +0300 |
parents | fc205d0e052d |
children | 405e8ca11c77 |
rev | line source |
---|---|
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 # Tests for nginx ssi bug with big includes. |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 ############################################################################### |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 use warnings; |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 use strict; |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 |
28
8f1519472ece
Tests: unbreak and extend has() functionality.
Maxim Dounin <mdounin@mdounin.ru>
parents:
19
diff
changeset
|
12 use Test::More; |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 |
9
f772e2a1a13f
Tests: change directory to allow runing from outside.
Maxim Dounin <mdounin@mdounin.ru>
parents:
6
diff
changeset
|
14 BEGIN { use FindBin; chdir($FindBin::Bin); } |
f772e2a1a13f
Tests: change directory to allow runing from outside.
Maxim Dounin <mdounin@mdounin.ru>
parents:
6
diff
changeset
|
15 |
14
d4b74207a627
Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents:
12
diff
changeset
|
16 use lib 'lib'; |
d4b74207a627
Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents:
12
diff
changeset
|
17 use Test::Nginx; |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 ############################################################################### |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 select STDERR; $| = 1; |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 select STDOUT; $| = 1; |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
24 my $t = Test::Nginx->new()->has('rewrite')->plan(8); |
15
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
25 |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
26 $t->write_file_expand('nginx.conf', <<'EOF'); |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
27 |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
28 master_process off; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
29 daemon off; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
30 |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
31 events { |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
32 worker_connections 1024; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
33 } |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
34 |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
35 http { |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
36 access_log off; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
37 root %%TESTDIR%%; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
38 |
35
7bf0e8a1d66c
Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents:
32
diff
changeset
|
39 client_body_temp_path %%TESTDIR%%/client_body_temp; |
7bf0e8a1d66c
Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents:
32
diff
changeset
|
40 fastcgi_temp_path %%TESTDIR%%/fastcgi_temp; |
7bf0e8a1d66c
Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents:
32
diff
changeset
|
41 proxy_temp_path %%TESTDIR%%/proxy_temp; |
7bf0e8a1d66c
Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents:
32
diff
changeset
|
42 |
15
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
43 output_buffers 2 512; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
44 ssi on; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
45 gzip on; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
46 |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
47 server { |
45
d68b85def521
Tests: use 127.0.0.1 instead of localhost.
Maxim Dounin <mdounin@mdounin.ru>
parents:
39
diff
changeset
|
48 listen 127.0.0.1:8080; |
15
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
49 server_name localhost; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
50 |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
51 location /proxy/ { |
45
d68b85def521
Tests: use 127.0.0.1 instead of localhost.
Maxim Dounin <mdounin@mdounin.ru>
parents:
39
diff
changeset
|
52 proxy_pass http://127.0.0.1:8080/local/; |
15
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
53 } |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
54 location = /local/blah { |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
55 return 204; |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
56 } |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
57 } |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
58 } |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
59 |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
60 EOF |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
61 |
14
d4b74207a627
Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents:
12
diff
changeset
|
62 $t->write_file('c1.html', 'X' x 1023); |
d4b74207a627
Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents:
12
diff
changeset
|
63 $t->write_file('c2.html', 'X' x 1024); |
d4b74207a627
Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents:
12
diff
changeset
|
64 $t->write_file('c3.html', 'X' x 1025); |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
65 $t->write_file('test1.html', '<!--#include virtual="/proxy/blah" -->' |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
66 . '<!--#include virtual="/c1.html" -->'); |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
67 $t->write_file('test2.html', '<!--#include virtual="/proxy/blah" -->' |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
68 . '<!--#include virtual="/c2.html" -->'); |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
69 $t->write_file('test3.html', '<!--#include virtual="/proxy/blah" -->' |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
70 . '<!--#include virtual="/c3.html" -->'); |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
71 $t->write_file('test4.html', '<!--#include virtual="/proxy/blah" -->' |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
72 . ('X' x 1025)); |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
73 |
15
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
74 $t->run(); |
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
75 |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
76 ############################################################################### |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
77 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
78 my $t1 = http_gzip_request('/test1.html'); |
6
8813a78ab8b5
Tests: drop LWP dependency.
Maxim Dounin <mdounin@mdounin.ru>
parents:
5
diff
changeset
|
79 ok(defined $t1, 'small included file (less than output_buffers)'); |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
80 http_gzip_like($t1, qr/^X{1023}\Z/, 'small included file content'); |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
81 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
82 my $t2 = http_gzip_request('/test2.html'); |
6
8813a78ab8b5
Tests: drop LWP dependency.
Maxim Dounin <mdounin@mdounin.ru>
parents:
5
diff
changeset
|
83 ok(defined $t2, 'small included file (equal to output_buffers)'); |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
84 http_gzip_like($t2, qr/^X{1024}\Z/, 'small included file content'); |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
85 |
19
b331c3113ebb
Tests: mark ssi-include-big as todo.
Maxim Dounin <mdounin@mdounin.ru>
parents:
15
diff
changeset
|
86 TODO: { |
b331c3113ebb
Tests: mark ssi-include-big as todo.
Maxim Dounin <mdounin@mdounin.ru>
parents:
15
diff
changeset
|
87 local $TODO = 'not fixed yet, patch under review'; |
b331c3113ebb
Tests: mark ssi-include-big as todo.
Maxim Dounin <mdounin@mdounin.ru>
parents:
15
diff
changeset
|
88 |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
89 my $t3 = http_gzip_request('/test3.html'); |
6
8813a78ab8b5
Tests: drop LWP dependency.
Maxim Dounin <mdounin@mdounin.ru>
parents:
5
diff
changeset
|
90 ok(defined $t3, 'big included file (more than output_buffers)'); |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
91 http_gzip_like($t3, qr/^X{1025}\Z/, 'big included file content'); |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
92 |
19
b331c3113ebb
Tests: mark ssi-include-big as todo.
Maxim Dounin <mdounin@mdounin.ru>
parents:
15
diff
changeset
|
93 } |
b331c3113ebb
Tests: mark ssi-include-big as todo.
Maxim Dounin <mdounin@mdounin.ru>
parents:
15
diff
changeset
|
94 |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
95 my $t4 = http_gzip_request('/test4.html'); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
96 ok(defined $t4, 'big ssi main file'); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
97 http_gzip_like($t4, qr/^X{1025}\Z/, 'big ssi main file content'); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
98 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
99 |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
100 ############################################################################### |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
101 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
102 sub http_gzip_request { |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
103 my ($url) = @_; |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
104 my $r = http(<<EOF); |
15
c6c36d7a4d90
Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents:
14
diff
changeset
|
105 GET $url HTTP/1.1 |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
106 Host: localhost |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
107 Connection: close |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
108 Accept-Encoding: gzip |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
109 |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
110 EOF |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
111 } |
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
112 |
39
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
113 sub http_content { |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
114 my ($text) = @_; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
115 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
116 return undef if !defined $text; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
117 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
118 if ($text !~ /(.*?)\x0d\x0a?\x0d\x0a?(.*)/ms) { |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
119 return undef; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
120 } |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
121 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
122 my ($headers, $body) = ($1, $2); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
123 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
124 if ($headers !~ /Transfer-Encoding: chunked/i) { |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
125 return $body; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
126 } |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
127 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
128 my $content = ''; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
129 while ($body =~ /\G\x0d?\x0a?([0-9a-f]+)\x0d\x0a?/gcmsi) { |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
130 my $len = hex($1); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
131 $content .= substr($body, pos($body), $len); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
132 pos($body) += $len; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
133 } |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
134 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
135 return $content; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
136 } |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
137 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
138 sub http_gzip_like { |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
139 my ($text, $re, $name) = @_; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
140 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
141 SKIP: { |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
142 eval { require IO::Uncompress::Gunzip; }; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
143 skip "IO::Uncompress::Gunzip not installed", 1 if $@; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
144 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
145 my $in = http_content($text); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
146 my $out; |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
147 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
148 IO::Uncompress::Gunzip::gunzip(\$in => \$out); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
149 |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
150 like($out, $re, $name); |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
151 } |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
152 } |
fc205d0e052d
Tests: check content returned from ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
35
diff
changeset
|
153 |
5
4d75bdb05ecf
Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
154 ############################################################################### |