summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/50server-starter.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/t/50server-starter.t')
-rw-r--r--debian/vendor-h2o/t/50server-starter.t103
1 files changed, 0 insertions, 103 deletions
diff --git a/debian/vendor-h2o/t/50server-starter.t b/debian/vendor-h2o/t/50server-starter.t
deleted file mode 100644
index 9be37d3..0000000
--- a/debian/vendor-h2o/t/50server-starter.t
+++ /dev/null
@@ -1,103 +0,0 @@
-use strict;
-use warnings;
-use Digest::MD5 qw(md5_hex);
-use File::Temp qw(tempdir);
-use Test::More;
-use t::Util;
-
-plan skip_all => 'start_server not found'
- unless prog_exists('start_server');
-
-my $tempdir = tempdir(CLEANUP => 1);
-
-subtest "master-mode" => sub {
- my $server = spawn_h2o({
- opts => [ qw(--mode=master) ],
- conf => << "EOT",
-pid-file: $tempdir/h2o.pid
-hosts:
- default:
- paths:
- /:
- file.dir: @{[ DOC_ROOT ]}
-EOT
- });
-
- subtest 'before-HUP' => sub {
- is read_file("$tempdir/h2o.pid"), "$server->{pid}\n", "pid";
- fetch_test($server->{port}, $server->{tls_port});
- };
- kill 'HUP', $server->{pid};
- sleep 1;
- subtest 'after-HUP' => sub {
- fetch_test($server->{port}, $server->{tls_port});
- is read_file("$tempdir/h2o.pid"), "$server->{pid}\n", "pid unchanged";
- };
-
- undef $server;
-
- ok ! stat("$tempdir/h2o.pid"), "pid-file is unlinked";
-};
-
-subtest "daemon-mode" => sub {
- my $server = spawn_h2o({
- opts => [ qw(--mode=daemon) ],
- conf => << "EOT",
-pid-file: $tempdir/h2o.pid
-error-log: $tempdir/h2o.error
-hosts:
- default:
- paths:
- /:
- file.dir: @{[ DOC_ROOT ]}
-EOT
- });
- my ($port, $tls_port) = map { $server->{$_} } qw(port tls_port);
-
- sleep 1;
- undef $server; # should have performed a double-fork by now
-
- my $pid = read_file("$tempdir/h2o.pid");
- chomp $pid;
-
- subtest 'before-HUP' => sub {
- fetch_test($port, $tls_port);
- };
- kill 'HUP', $pid;
- sleep 1;
- subtest 'after-HUP' => sub {
- fetch_test($port, $tls_port);
- is read_file("$tempdir/h2o.pid"), "$pid\n", "pid unchanged";
- };
-
- kill 'TERM', $pid;
- sleep 1;
- ok ! stat("$tempdir/h2o.pid"), "pid-file is unlinked";
-};
-
-done_testing;
-
-sub fetch_test {
- my ($port, $tls_port) = @_;
-
- plan skip_all => 'curl not found'
- unless prog_exists('curl');
- my $curl = "curl --insecure";
- $curl .= " --http1.1"
- if curl_supports_http2();
-
- my $doit = sub {
- my ($proto, $port) = @_;
- my $content = `$curl --silent --show-error $proto://127.0.0.1:$port/`;
- is md5_hex($content), md5_file(DOC_ROOT . "/index.txt"), $proto;
- };
- $doit->("http", $port);
- $doit->("https", $tls_port);
-}
-
-sub read_file {
- my $fn = shift;
- open my $fh, '<', $fn
- or die "failed to open file:$fn:$!";
- join '', <$fh>;
-}