Mercurial > hg > nginx-tests

comparison ssi-include-big.t @ 6:8813a78ab8b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: drop LWP dependency.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 07 Sep 2008 19:06:49 +0400
parents 4d75bdb05ecf
children f772e2a1a13f
comparison
equal deleted inserted replaced
5:4d75bdb05ecf 6:8813a78ab8b5
10 use strict; 10 use strict;
11 11
12 use Test::More tests => 3; 12 use Test::More tests => 3;
13 13
14 use _common; 14 use _common;
15 use Compress::Zlib;
16 15
17 ############################################################################### 16 ###############################################################################
18 17
19 select STDERR; $| = 1; 18 select STDERR; $| = 1;
20 select STDOUT; $| = 1; 19 select STDOUT; $| = 1;
32 . '<!--#include virtual="/c3.html" -->'); 31 . '<!--#include virtual="/c3.html" -->');
33 32
34 ############################################################################### 33 ###############################################################################
35 34
36 my $t1 = http_gzip_request('/test1.html'); 35 my $t1 = http_gzip_request('/test1.html');
37 like($t1, qr/X{1023}/, 'small included file (less than output_buffers)'); 36 ok(defined $t1, 'small included file (less than output_buffers)');
38 37
39 my $t2 = http_gzip_request('/test2.html'); 38 my $t2 = http_gzip_request('/test2.html');
40 like($t2, qr/X{1024}/, 'small included file (equal to output_buffers)'); 39 ok(defined $t2, 'small included file (equal to output_buffers)');
41 40
42 my $t3 = http_gzip_request('/test3.html'); 41 my $t3 = http_gzip_request('/test3.html');
43 like($t3, qr/X{1025}/, 'big included file (more than output_buffers)'); 42 ok(defined $t3, 'big included file (more than output_buffers)');
44 43
45 ############################################################################### 44 ###############################################################################
46 45
47 sub http_gzip_request { 46 sub http_gzip_request {
48 my ($url) = @_; 47 my ($url) = @_;
49 return `GET -t 1 -H 'Accept-Encoding: gzip' http://localhost:8080$url | gunzip -c`;
50 =pod
51
52 my $r = http(<<EOF); 48 my $r = http(<<EOF);
53 GET $url HTTP/1.0 49 GET $url HTTP/1.0
54 Host: localhost 50 Host: localhost
55 Connection: close 51 Connection: close
56 Accept-Encoding: gzip 52 Accept-Encoding: gzip
57 53
58 EOF 54 EOF
59 return undef unless defined $r;
60 return undef unless $r =~ m/\x0d\x0a\x0d\x0a(.*)/ms;
61 return Compress::Zlib::memGunzip(my $b = $1);
62 =cut
63 } 55 }
64 56
65 sub write_file { 57 sub write_file {
66 my ($name, $content) = @_; 58 my ($name, $content) = @_;
67 59