diff options
Diffstat (limited to '')
-rw-r--r-- | web/server/h2o/libh2o/t/40session-ticket.t | 133 |
1 files changed, 0 insertions, 133 deletions
diff --git a/web/server/h2o/libh2o/t/40session-ticket.t b/web/server/h2o/libh2o/t/40session-ticket.t deleted file mode 100644 index 2e5d5e4ac..000000000 --- a/web/server/h2o/libh2o/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; -} |