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