Mercurial > hg > nginx-tests

changeset 1817:c045fbb98e9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: revised tests for listen port ranges. Renumbered testing ports to get more chance to execute when run in parallel. Relaxed condition to skip tests only when the port range is out of sequence. Adjacent port numbers out of a specified range aren't crucial to skip tests: if not in sequence, statistically this will be caught in subsequent runs. Unsafe tests that use wildcard addresses are moved to a separate file.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 23 Dec 2022 19:20:50 +0400
parents 5817625792bd
children 9a44d489966c
files http_listen.t http_listen_wildcard.t
diffstat 2 files changed, 98 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/http_listen.t	Tue Dec 20 19:42:09 2022 +0400
+++ b/http_listen.t	Fri Dec 23 19:20:50 2022 +0400
@@ -38,9 +38,8 @@
 
     server {
         listen       127.0.0.1:8080;
-        listen       127.0.0.1:%%PORT_8082%%-%%PORT_8083%%;
-        listen       %%PORT_8085%%-%%PORT_8086%%;
-        listen       [::1]:%%PORT_8085%%-%%PORT_8086%%;
+        listen       127.0.0.1:%%PORT_8182%%-%%PORT_8183%%;
+        listen       [::1]:%%PORT_8182%%-%%PORT_8183%%;
         server_name  localhost;
 
         location / {
@@ -55,28 +54,24 @@
     # catch out of range
 
     server {
-        listen       127.0.0.1:8081;
-        listen       127.0.0.1:8084;
-        listen       127.0.0.1:8087;
-        listen       [::1]:%%PORT_8084%%;
-        listen       [::1]:%%PORT_8087%%;
+        listen       127.0.0.1:8181;
+        listen       127.0.0.1:8184;
+        listen       [::1]:%%PORT_8181%%;
+        listen       [::1]:%%PORT_8184%%;
         server_name  localhost;
     }
 }
 
 EOF
 
-my $p0 = port(8080); my $p3 = port(8083); my $p6 = port(8086);
-my $p1 = port(8081); my $p4 = port(8084); my $p7 = port(8087);
-my $p2 = port(8082); my $p5 = port(8085);
-
-plan(skip_all => 'listen on wildcard address')
-	unless $ENV{TEST_NGINX_UNSAFE};
+my $p0 = port(8080); my $p3 = port(8183);
+my $p1 = port(8181); my $p4 = port(8184);
+my $p2 = port(8182);
 
 plan(skip_all => 'no requested ranges')
-	if "$p0$p1$p2$p3$p4$p5$p6$p7" ne "80808081808280838084808580868087";
+	if "$p2$p3" ne "81828183";
 
-$t->run()->plan(12);
+$t->run()->plan(9);
 
 ###############################################################################
 
@@ -84,14 +79,11 @@
 unlike(http_get("/?b=127.0.0.1:$p1"), qr/127.0.0.1:$p1/, 'out of range 1');
 like(http_get("/?b=127.0.0.1:$p2"), qr/127.0.0.1:$p2/, 'range 1');
 like(http_get("/?b=127.0.0.1:$p3"), qr/127.0.0.1:$p3/, 'range 2');
-unlike(http_get("/?b=127.0.0.1:$p4"), qr/127.0.0.$p4/, 'out of range 2');
-like(http_get("/?b=127.0.0.1:$p5"), qr/127.0.0.1:$p5/, 'wildcard range 1');
-like(http_get("/?b=127.0.0.1:$p6"), qr/127.0.0.1:$p6/, 'wildcard range 2');
-unlike(http_get("/?b=127.0.0.1:$p7"), qr/127.0.0.1:$p7/, 'out of range 3');
+unlike(http_get("/?b=127.0.0.1:$p4"), qr/127.0.0.1:$p4/, 'out of range 2');
 
-unlike(http_get("/?b=[::1]:$p4"), qr/::1:$p4/, 'out of range 4');
-like(http_get("/?b=[::1]:$p5"), qr/::1:$p5/, 'ipv6 range 1');
-like(http_get("/?b=[::1]:$p6"), qr/::1:$p6/, 'ipv6 range 2');
-unlike(http_get("/?b=[::1]:$p7"), qr/::1:$p7/, 'out of range 5');
+unlike(http_get("/?b=[::1]:$p1"), qr/::1:$p1/, 'inet6 out of range 1');
+like(http_get("/?b=[::1]:$p2"), qr/::1:$p2/, 'inet6 range 1');
+like(http_get("/?b=[::1]:$p3"), qr/::1:$p3/, 'inet6 range 2');
+unlike(http_get("/?b=[::1]:$p4"), qr/::1:$p4/, 'inet6 out of range 2');
 
 ###############################################################################
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/http_listen_wildcard.t	Fri Dec 23 19:20:50 2022 +0400
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+
+# (C) Sergey Kandaurov
+# (C) Nginx, Inc.
+
+# Tests for listen port ranges with a wildcard address.
+
+###############################################################################
+
+use warnings;
+use strict;
+
+use Test::More;
+
+BEGIN { use FindBin; chdir($FindBin::Bin); }
+
+use lib 'lib';
+use Test::Nginx;
+
+###############################################################################
+
+select STDERR; $| = 1;
+select STDOUT; $| = 1;
+
+my $t = Test::Nginx->new()->has(qw/http proxy rewrite/);
+
+plan(skip_all => 'listen on wildcard address')
+	unless $ENV{TEST_NGINX_UNSAFE};
+
+$t->write_file_expand('nginx.conf', <<'EOF');
+
+%%TEST_GLOBALS%%
+
+daemon off;
+
+events {
+}
+
+http {
+    %%TEST_GLOBALS_HTTP%%
+
+    server {
+        listen       127.0.0.1:8080;
+        listen       %%PORT_8186%%-%%PORT_8187%%;
+        server_name  localhost;
+
+        location / {
+            proxy_pass  http://$arg_b/t;
+        }
+
+        location /t {
+            return  200  $server_addr:$server_port;
+        }
+    }
+
+    # catch out of range
+
+    server {
+        listen       127.0.0.1:8185;
+        listen       127.0.0.1:8188;
+        server_name  localhost;
+    }
+}
+
+EOF
+
+my $p5 = port(8185); my $p7 = port(8187);
+my $p6 = port(8186); my $p8 = port(8188);
+
+plan(skip_all => 'no requested ranges')
+	if "$p6$p7" ne "81868187";
+
+$t->run()->plan(4);
+
+###############################################################################
+
+unlike(http_get("/?b=127.0.0.1:$p5"), qr/127.0.0.1:$p5/, 'out of range 1');
+like(http_get("/?b=127.0.0.1:$p6"), qr/127.0.0.1:$p6/, 'wildcard range 1');
+like(http_get("/?b=127.0.0.1:$p7"), qr/127.0.0.1:$p7/, 'wildcard range 2');
+unlike(http_get("/?b=127.0.0.1:$p8"), qr/127.0.0.1:$p8/, 'out of range 2');
+
+###############################################################################