From 5da14042f70711ea5cf66e034699730335462f66 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 5 May 2024 14:08:03 +0200 Subject: Merging upstream version 1.45.3+dfsg. Signed-off-by: Daniel Baumann --- .../libh2o/misc/p5-Server-Starter/t/02-startfail.t | 61 ---------------------- 1 file changed, 61 deletions(-) delete mode 100644 web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t (limited to 'web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail.t') 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'); - } - }, -); -- cgit v1.2.3