Mercurial > hg > nginx-tests

annotate ssi-include-big.t @ 39:fc205d0e052d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: check content returned from ssi tests. Since replies are gzipped, IO::Uncompress::Gunzip required for this (if not installed tests are skipped). This should catch truncated replies as fixed in nginx 0.7.4.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 01 Nov 2008 03:29:34 +0300
parents 7bf0e8a1d66c
children d68b85def521
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 {
c6c36d7a4d90 Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
48 listen localhost:8080;
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/ {
c6c36d7a4d90 Tests: support config embedded in test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
52 proxy_pass http://localhost:8080/local/;
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 ###############################################################################