Mercurial > hg > nginx-tests

changeset 947:b9e42c554ba7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: skip UDP tests on win32, udp feature introduced. The UDP sockets are not supported in nginx on this platform.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 17 Jun 2016 11:17:10 +0300
parents e3df9c2100de
children 4dc302d8e04f
files lib/Test/Nginx.pm stream_udp_limit_conn.t stream_udp_proxy.t stream_udp_upstream.t stream_udp_upstream_hash.t stream_udp_upstream_least_conn.t
diffstat 6 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lib/Test/Nginx.pm
+++ b/lib/Test/Nginx.pm
@@ -198,6 +198,10 @@ sub has_feature($) {
 		return $^O ne 'MSWin32';
 	}
 
+	if ($feature eq 'udp') {
+		return $^O ne 'MSWin32';
+	}
+
 	return 0;
 }
 
--- a/stream_udp_limit_conn.t
+++ b/stream_udp_limit_conn.t
@@ -23,7 +23,7 @@ use Test::Nginx::Stream qw/ dgram /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/stream stream_limit_conn shmem/)
+my $t = Test::Nginx->new()->has(qw/stream stream_limit_conn udp shmem/)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%
--- a/stream_udp_proxy.t
+++ b/stream_udp_proxy.t
@@ -22,7 +22,7 @@ use Test::Nginx::Stream qw/ dgram /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/stream/)
+my $t = Test::Nginx->new()->has(qw/stream udp/)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%
--- a/stream_udp_upstream.t
+++ b/stream_udp_upstream.t
@@ -23,7 +23,7 @@ use Test::Nginx::Stream qw/ dgram /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/stream/)
+my $t = Test::Nginx->new()->has(qw/stream udp/)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%
--- a/stream_udp_upstream_hash.t
+++ b/stream_udp_upstream_hash.t
@@ -23,7 +23,7 @@ use Test::Nginx::Stream qw/ dgram /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/stream stream_upstream_hash/);
+my $t = Test::Nginx->new()->has(qw/stream stream_upstream_hash udp/);
 
 $t->write_file_expand('nginx.conf', <<'EOF');
 
--- a/stream_udp_upstream_least_conn.t
+++ b/stream_udp_upstream_least_conn.t
@@ -23,7 +23,7 @@ use Test::Nginx::Stream qw/ dgram /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/stream stream_upstream_least_conn/)
+my $t = Test::Nginx->new()->has(qw/stream stream_upstream_least_conn udp/)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%