summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/40session-ticket.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/t/40session-ticket.t')
-rw-r--r--debian/vendor-h2o/t/40session-ticket.t133
1 files changed, 0 insertions, 133 deletions
diff --git a/debian/vendor-h2o/t/40session-ticket.t b/debian/vendor-h2o/t/40session-ticket.t
deleted file mode 100644
index 2e5d5e4..0000000
--- a/debian/vendor-h2o/t/40session-ticket.t
+++ /dev/null
@@ -1,133 +0,0 @@
-use strict;
-use warnings;
-use File::Temp qw(tempdir);
-use Net::EmptyPort qw(check_port empty_port);
-use Test::More;
-use t::Util;
-
-plan skip_all => "could not find openssl"
- unless prog_exists("openssl");
-#plan skip_all => "openssl 1.0.2 or above is required"
-# unless `openssl version` =~ /^OpenSSL 1\.(?:0\.[2-9][^0-9]|[1-9])/s;
-
-my $tempdir = tempdir(CLEANUP => 1);
-
-subtest "internal" => sub {
- spawn_with(<< "EOT",
- mode: ticket
-EOT
- sub {
- is test(), "New";
- test(); # openssl 0.9.8 seems to return "New" (maybe because in the first run we did not specify -sess_in)
- is test(), "Reused";
- is test(), "Reused";
- });
- spawn_with(<< "EOT",
- mode: ticket
-EOT
- sub {
- is test(), "New";
- });
-};
-
-subtest "file" => sub {
- my $tickets_file = "t/40session-ticket/forever_ticket.yaml";
- spawn_with(<< "EOT",
- mode: ticket
- ticket-store: file
- ticket-file: $tickets_file
-EOT
- sub {
- is test(), "New";
- is test(), "Reused";
- is test(), "Reused";
- });
- spawn_with(<< "EOT",
- mode: ticket
- ticket-store: file
- ticket-file: $tickets_file
-EOT
- sub {
- sleep 1;
- is test(), "Reused";
- });
-};
-
-subtest "no-tickets-in-file" => sub {
- my $tickets_file = "t/40session-ticket/nonexistent";
- spawn_with(<< "EOT",
- mode: ticket
- ticket-store: file
- ticket-file: $tickets_file
-EOT
- sub {
- is test(), "New";
- is test(), "New";
- is test(), "New";
- });
-};
-
-subtest "memcached" => sub {
- plan skip_all => "memcached not found"
- unless prog_exists("memcached");
- my $memc_port = empty_port();
- my $doit = sub {
- my $memc_proto = shift;
- my $memc_guard = spawn_server(
- argv => [ qw(memcached -l 127.0.0.1 -p), $memc_port, "-B", $memc_proto ],
- is_ready => sub {
- check_port($memc_port);
- },
- );
- my $conf =<< "EOT";
- mode: ticket
- ticket-store: memcached
- memcached:
- host: 127.0.0.1
- port: $memc_port
- protocol: $memc_proto
-EOT
- spawn_with($conf, sub {
- is test(), "New";
- is test(), "Reused";
- is test(), "Reused";
- });
- spawn_with($conf, sub {
- sleep 1;
- is test(), "Reused";
- });
- };
- $doit->("binary");
- $doit->("ascii");
-};
-
-done_testing;
-
-my $server;
-
-sub spawn_with {
- my ($opts, $cb) = @_;
- $server = spawn_h2o(<< "EOT");
-ssl-session-resumption:
-$opts
-hosts:
- default:
- paths:
- /:
- file.dir: @{[ DOC_ROOT ]}
-EOT
- $cb->();
-}
-
-sub test {
- my $lines = do {
- my $cmd_opts = (-e "$tempdir/session" ? "-sess_in $tempdir/session" : "") . " -sess_out $tempdir/session";
- open my $fh, "-|", "openssl s_client $cmd_opts -connect 127.0.0.1:$server->{tls_port} 2>&1 < /dev/null"
- or die "failed to open pipe:$!";
- local $/;
- <$fh>;
- };
- $lines =~ m{---\n(New|Reused),}s
- or die "failed to parse the output of s_client:{{{$lines}}}";
- $1;
-}