summaryrefslogtreecommitdiffstats
path: root/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr.t
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-05 11:19:16 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-05 12:07:37 +0000
commitb485aab7e71c1625cfc27e0f92c9509f42378458 (patch)
treeae9abe108601079d1679194de237c9a435ae5b55 /web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr.t
parentAdding upstream version 1.44.3. (diff)
downloadnetdata-upstream.tar.xz
netdata-upstream.zip
Adding upstream version 1.45.3+dfsg.upstream/1.45.3+dfsgupstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr.t')
-rw-r--r--web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr.t55
1 files changed, 0 insertions, 55 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr.t b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr.t
deleted file mode 100644
index 16a76768c..000000000
--- a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr.t
+++ /dev/null
@@ -1,55 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-use Test::Requires qw(IO::Socket::IP);
-use Net::EmptyPort qw(can_bind empty_port);
-use Server::Starter qw(start_server);
-
-plan skip_all => 'IPv6 not available'
- unless can_bind('::1');
-
-my $port = empty_port;
-
-sub doit {
- my ($bind_addr, $other_addr) = @_;
- my $pid = fork;
- die "fork failed:$!"
- unless defined $pid;
- if ($pid == 0) {
- # server
- start_server(
- port => "[$bind_addr]:$port",
- exec => [
- $^X, qw(t/10-bindaddr-server.pl),
- ],
- );
- exit 0;
- }
- # client
- sleep 1;
- my $sock = IO::Socket::IP->new(
- PeerHost => $bind_addr,
- PeerPort => $port,
- Proto => 'tcp',
- );
- ok($sock, "connected to bindaddr");
- $sock->sysread(my $buf, 1024); # wait for disconnect
- undef $sock;
- $sock = IO::Socket::IP->new(
- PeerHost => $other_addr,
- PeerPort => $port,
- Proto => 'tcp',
- );
- ok ! defined $sock, "cannot connect to other addr";
- kill 'TERM', $pid;
- wait();
-}
-
-subtest "v4" => sub {
- doit("127.0.0.1", "::1");
-};
-subtest "v6" => sub {
- doit("::1", "127.0.0.1");
-};
-
-done_testing;