# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1338663489 -14400
# Node ID 8d2c6358d830a4ec73a963d7131d38218ee839b2
# Parent  f6f60780f758f30d3cae29c31ba9f8cc78e9e609
Tests: avoid using FCGI on win32.

The FCGI.pm under Windows refuses to listen on 127.0.0.1 and insists on
listening on INADDR_ANY.  We don't want to.

diff --git a/fastcgi.t b/fastcgi.t
--- a/fastcgi.t
+++ b/fastcgi.t
@@ -23,6 +23,7 @@ select STDOUT; $| = 1;
 
 eval { require FCGI; };
 plan(skip_all => 'FCGI not installed') if $@;
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
 
 my $t = Test::Nginx->new()->has(qw/http fastcgi/)->plan(5)
 	->write_file_expand('nginx.conf', <<'EOF');
diff --git a/fastcgi_cache.t b/fastcgi_cache.t
--- a/fastcgi_cache.t
+++ b/fastcgi_cache.t
@@ -23,6 +23,7 @@ select STDOUT; $| = 1;
 
 eval { require FCGI; };
 plan(skip_all => 'FCGI not installed') if $@;
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
 
 my $t = Test::Nginx->new()->has(qw/http fastcgi cache/)->plan(5)
 	->write_file_expand('nginx.conf', <<'EOF');
diff --git a/fastcgi_header_params.t b/fastcgi_header_params.t
--- a/fastcgi_header_params.t
+++ b/fastcgi_header_params.t
@@ -23,6 +23,7 @@ select STDOUT; $| = 1;
 
 eval { require FCGI; };
 plan(skip_all => 'FCGI not installed') if $@;
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
 
 my $t = Test::Nginx->new()->has(qw/http fastcgi/)->plan(1)
 	->write_file_expand('nginx.conf', <<'EOF');
diff --git a/fastcgi_merge_params.t b/fastcgi_merge_params.t
--- a/fastcgi_merge_params.t
+++ b/fastcgi_merge_params.t
@@ -23,7 +23,7 @@ select STDOUT; $| = 1;
 
 eval { require FCGI; };
 plan(skip_all => 'FCGI not installed') if $@;
-
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
 
 my $t = Test::Nginx->new()->has(qw/http fastcgi cache/)->plan(9)
 	->write_file_expand('nginx.conf', <<'EOF');
diff --git a/fastcgi_merge_params2.t b/fastcgi_merge_params2.t
--- a/fastcgi_merge_params2.t
+++ b/fastcgi_merge_params2.t
@@ -23,7 +23,7 @@ select STDOUT; $| = 1;
 
 eval { require FCGI; };
 plan(skip_all => 'FCGI not installed') if $@;
-
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
 
 my $t = Test::Nginx->new()->has(qw/http fastcgi cache/)->plan(4)
 	->write_file_expand('nginx.conf', <<'EOF');