Mercurial > hg > ngx_http_gunzip_filter_module
comparison t/gunzip_perl.t @ 21:c0301992025a draft default tip
Gunzip: tests cleanup.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Fri, 07 Sep 2012 19:38:56 +0400 |
parents | 1adc6718cc05 |
children |
comparison
equal
deleted
inserted
replaced
20:1adc6718cc05 | 21:c0301992025a |
---|---|
8 | 8 |
9 use warnings; | 9 use warnings; |
10 use strict; | 10 use strict; |
11 | 11 |
12 use Test::More; | 12 use Test::More; |
13 | |
14 BEGIN { use FindBin; chdir($FindBin::Bin); } | |
15 | |
16 use lib 'lib'; | |
17 use Test::Nginx qw/ :DEFAULT :gzip /; | 13 use Test::Nginx qw/ :DEFAULT :gzip /; |
18 | 14 |
19 ############################################################################### | 15 ############################################################################### |
20 | 16 |
21 select STDERR; $| = 1; | 17 select STDERR; $| = 1; |
22 select STDOUT; $| = 1; | 18 select STDOUT; $| = 1; |
23 | 19 |
24 eval { require IO::Compress::Gzip; }; | 20 eval { require IO::Compress::Gzip; }; |
25 Test::More::plan(skip_all => "IO::Compress::Gzip not found") if $@; | 21 Test::More::plan(skip_all => "IO::Compress::Gzip not found") if $@; |
26 | 22 |
27 my $t = Test::Nginx->new()->has(qw/http perl/)->plan(2) | 23 my $t = Test::Nginx->new()->has(qw/http gunzip perl/)->plan(2) |
28 ->write_file_expand('nginx.conf', <<'EOF'); | 24 ->write_file_expand('nginx.conf', <<'EOF'); |
29 | 25 |
30 %%TEST_GLOBALS%% | 26 %%TEST_GLOBALS%% |
31 | 27 |
32 master_process off; | |
33 daemon off; | 28 daemon off; |
34 | 29 |
35 events { | 30 events { |
36 } | 31 } |
37 | 32 |