# HG changeset patch # User Sergey Kandaurov # Date 1446717395 -10800 # Node ID adc32621fb09e9b31c7857da9fd805c07c2a68b3 # Parent c877f91a71b42dc27b0bfd20e1db6a1f378a2871 Tests: skip IO::Compress::Gzip on win32. diff --git a/gunzip.t b/gunzip.t --- a/gunzip.t +++ b/gunzip.t @@ -23,6 +23,7 @@ select STDOUT; $| = 1; eval { require IO::Compress::Gzip; }; plan(skip_all => "IO::Compress::Gzip not found") if $@; +plan(skip_all => "IO::Compress::Gzip on win32") if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http gunzip proxy gzip_static rewrite/) ->plan(13); diff --git a/gunzip_memcached.t b/gunzip_memcached.t --- a/gunzip_memcached.t +++ b/gunzip_memcached.t @@ -26,6 +26,7 @@ plan(skip_all => 'Cache::Memcached not i eval { require IO::Compress::Gzip; }; plan(skip_all => "IO::Compress::Gzip not found") if $@; +plan(skip_all => "IO::Compress::Gzip on win32") if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http gunzip memcached rewrite/) ->has_daemon('memcached') diff --git a/gunzip_perl.t b/gunzip_perl.t --- a/gunzip_perl.t +++ b/gunzip_perl.t @@ -23,6 +23,7 @@ select STDOUT; $| = 1; eval { require IO::Compress::Gzip; }; plan(skip_all => "IO::Compress::Gzip not found") if $@; +plan(skip_all => "IO::Compress::Gzip on win32") if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http gunzip perl/)->plan(2) ->write_file_expand('nginx.conf', <<'EOF'); diff --git a/gunzip_ssi.t b/gunzip_ssi.t --- a/gunzip_ssi.t +++ b/gunzip_ssi.t @@ -23,6 +23,7 @@ select STDOUT; $| = 1; eval { require IO::Compress::Gzip; }; plan(skip_all => "IO::Compress::Gzip not found") if $@; +plan(skip_all => "IO::Compress::Gzip on win32") if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http gunzip ssi proxy gzip_static/) ->plan(4); diff --git a/gunzip_static.t b/gunzip_static.t --- a/gunzip_static.t +++ b/gunzip_static.t @@ -24,6 +24,7 @@ select STDOUT; $| = 1; eval { require IO::Compress::Gzip; }; plan(skip_all => "IO::Compress::Gzip not found") if $@; +plan(skip_all => "IO::Compress::Gzip on win32") if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http gunzip proxy gzip_static rewrite/); diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm --- a/lib/Test/Nginx.pm +++ b/lib/Test/Nginx.pm @@ -641,6 +641,9 @@ sub http_gzip_like { eval { require IO::Uncompress::Gunzip; }; Test::More::skip( "IO::Uncompress::Gunzip not installed", 1) if $@; + Test::More::skip( + "IO::Uncompress::Gunzip on win32", 1) + if $^O eq 'MSWin32'; my $in = http_content($text); my $out; diff --git a/perl_gzip.t b/perl_gzip.t --- a/perl_gzip.t +++ b/perl_gzip.t @@ -23,6 +23,7 @@ select STDOUT; $| = 1; eval { require IO::Compress::Gzip; }; plan(skip_all => "IO::Compress::Gzip not found") if $@; +plan(skip_all => "IO::Compress::Gzip on win32") if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http perl gzip/)->plan(2) ->write_file_expand('nginx.conf', <<'EOF');