# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1338686439 -14400
# Node ID f9325406df0b5f6dcfce825eb6f13b4e6581e1e1
# Parent  5b7883daaf82beb06eb46a662c566a3dcd73f870
Tests: skip tests not appropriate for win32.

Skip tests which doesn't work on win32, notably ones using crypt(),
symlinks and shared memory.

diff --git a/auth_basic.t b/auth_basic.t
--- a/auth_basic.t
+++ b/auth_basic.t
@@ -68,12 +68,18 @@ my $d = $t->testdir();
 
 like(http_get('/'), qr!401 Unauthorized!ms, 'rejects unathorized');
 
+SKIP: {
+
+skip 'no crypt on win32', 4 if $^O eq 'MSWin32';
+
 like(http_get_auth('/', 'crypt', 'password'), qr!SEETHIS!, 'normal crypt');
 unlike(http_get_auth('/', 'crypt', '123'), qr!SEETHIS!, 'normal wrong');
 
 like(http_get_auth('/', 'crypt1', 'password'), qr!SEETHIS!, 'crypt $1$ (md5)');
 unlike(http_get_auth('/', 'crypt1', '123'), qr!SEETHIS!, 'crypt $1$ wrong');
 
+}
+
 like(http_get_auth('/', 'apr1', 'password'), qr!SEETHIS!, 'apr1 md5');
 like(http_get_auth('/', 'plain', 'password'), qr!SEETHIS!, 'plain password');
 
diff --git a/autoindex.t b/autoindex.t
--- a/autoindex.t
+++ b/autoindex.t
@@ -21,6 +21,8 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'no symlinks on win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http autoindex/)->plan(16)
 	->write_file_expand('nginx.conf', <<'EOF');
 
diff --git a/http_server_name.t b/http_server_name.t
--- a/http_server_name.t
+++ b/http_server_name.t
@@ -21,6 +21,8 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http rewrite/)->plan(9)
 	->write_file_expand('nginx.conf', <<'EOF');
 
diff --git a/limit_req.t b/limit_req.t
--- a/limit_req.t
+++ b/limit_req.t
@@ -21,6 +21,8 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http limit_req/)->plan(5);
 
 $t->write_file_expand('nginx.conf', <<'EOF');
diff --git a/proxy_cache.t b/proxy_cache.t
--- a/proxy_cache.t
+++ b/proxy_cache.t
@@ -21,6 +21,8 @@ use Test::Nginx qw/ :DEFAULT :gzip /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http proxy cache gzip/)->plan(12)
 	->write_file_expand('nginx.conf', <<'EOF');
 
diff --git a/proxy_cache_lock.t b/proxy_cache_lock.t
--- a/proxy_cache_lock.t
+++ b/proxy_cache_lock.t
@@ -22,6 +22,8 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http proxy cache/)
 	->write_file_expand('nginx.conf', <<'EOF');
 
diff --git a/proxy_merge_headers.t b/proxy_merge_headers.t
--- a/proxy_merge_headers.t
+++ b/proxy_merge_headers.t
@@ -21,6 +21,8 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http proxy cache rewrite/)->plan(3)
 	->write_file_expand('nginx.conf', <<'EOF');
 
diff --git a/random_index.t b/random_index.t
--- a/random_index.t
+++ b/random_index.t
@@ -21,6 +21,8 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'no symlinks on win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http random_index/)->plan(1)
 	->write_file_expand('nginx.conf', <<'EOF');
 
diff --git a/ssi.t b/ssi.t
--- a/ssi.t
+++ b/ssi.t
@@ -21,6 +21,8 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
+plan(skip_all => 'win32') if $^O eq 'MSWin32';
+
 my $t = Test::Nginx->new()->has(qw/http ssi cache proxy rewrite/)->plan(18);
 
 $t->write_file_expand('nginx.conf', <<'EOF');