Mercurial > hg > nginx-tests

changeset 223:f9325406df0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: skip tests not appropriate for win32. Skip tests which doesn't work on win32, notably ones using crypt(), symlinks and shared memory.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 03 Jun 2012 05:20:39 +0400
parents 5b7883daaf82
children ba992cfdc606
files auth_basic.t autoindex.t http_server_name.t limit_req.t proxy_cache.t proxy_cache_lock.t proxy_merge_headers.t random_index.t ssi.t
diffstat 9 files changed, 22 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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');
 
--- 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');
 
--- 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');
 
--- 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');
--- 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');
 
--- 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');
 
--- 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');
 
--- 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');
 
--- 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');