Mercurial > hg > nginx-tests

changeset 774:adc32621fb09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: skip IO::Compress::Gzip on win32.
author Sergey Kandaurov <pluknet@nginx.com>
date Thu, 05 Nov 2015 12:56:35 +0300
parents c877f91a71b4
children a6764c2a9f12
files gunzip.t gunzip_memcached.t gunzip_perl.t gunzip_ssi.t gunzip_static.t lib/Test/Nginx.pm perl_gzip.t
diffstat 7 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
--- 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')
--- 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');
--- 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);
--- 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/);
 
--- 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;
--- 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');