summaryrefslogtreecommitdiffstats
path: root/web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-05 12:08:03 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-05 12:08:18 +0000
commit5da14042f70711ea5cf66e034699730335462f66 (patch)
tree0f6354ccac934ed87a2d555f45be4c831cf92f4a /web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t
parentReleasing debian version 1.44.3-2. (diff)
downloadnetdata-5da14042f70711ea5cf66e034699730335462f66.tar.xz
netdata-5da14042f70711ea5cf66e034699730335462f66.zip
Merging upstream version 1.45.3+dfsg.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t')
-rw-r--r--web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t61
1 files changed, 0 insertions, 61 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t
deleted file mode 100644
index 0985534b2..000000000
--- a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t
+++ /dev/null
@@ -1,61 +0,0 @@
-use strict;
-use warnings;
-
-use Test::TCP;
-use Test::More tests => 9;
-
-use Server::Starter qw(start_server);
-
-test_tcp(
- server => sub {
- my $port = shift;
- start_server(
- port => $port,
- exec => [ $^X, qw(t/02-startfail-server.pl) ],
- );
- },
- client => sub {
- my ($port, $server_pid) = @_;
- my $buf;
- sleep 3;
- {
- my $sock = IO::Socket::INET->new(
- PeerAddr => "127.0.0.1:$port",
- Proto => 'tcp',
- );
- ok($sock, 'connect');
- # check generation
- ok($sock->sysread($buf, 1048576), 'read');
- is($buf, 2, 'check generation');
- }
- # request restart, that will fail
- kill 'HUP', $server_pid;
- sleep 1;
- {
- my $sock = IO::Socket::INET->new(
- PeerAddr => "127.0.0.1:$port",
- Proto => 'tcp',
- );
- ok($sock, 'connect');
- ok(
- $sock->sysread($buf, 1048576),
- 'read while worker is failing to reboot',
- );
- is($buf, 2, 'check generation');
- }
- # wait until server succeds in reboot
- sleep 5;
- {
- my $sock = IO::Socket::INET->new(
- PeerAddr => "127.0.0.1:$port",
- Proto => 'tcp',
- );
- ok($sock, 'connect');
- ok(
- $sock->sysread($buf, 1048576),
- 'read after worker succeeds to reboot',
- );
- is($buf, 5, 'check generation');
- }
- },
-);