From be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Fri, 19 Apr 2024 04:57:58 +0200 Subject: Adding upstream version 1.44.3. Signed-off-by: Daniel Baumann --- .../h2o/libh2o/t/40memcached-session-resumption.t | 62 ++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 web/server/h2o/libh2o/t/40memcached-session-resumption.t (limited to 'web/server/h2o/libh2o/t/40memcached-session-resumption.t') diff --git a/web/server/h2o/libh2o/t/40memcached-session-resumption.t b/web/server/h2o/libh2o/t/40memcached-session-resumption.t new file mode 100644 index 00000000..129affbe --- /dev/null +++ b/web/server/h2o/libh2o/t/40memcached-session-resumption.t @@ -0,0 +1,62 @@ +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 memcached" + unless prog_exists("memcached"); + +plan skip_all => "could not find openssl" + unless prog_exists("openssl"); + +my $tempdir = tempdir(CLEANUP => 1); + +doit("binary"); +doit("ascii"); + +done_testing; + +sub doit { + my $memc_proto = shift; + subtest $memc_proto => sub { + # start memcached + my $memc_port = empty_port(); + 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); + }, + ); + # the test + my $spawn_and_connect = sub { + my ($opts, $expected) = @_; + my $server = spawn_h2o(<< "EOT"); +ssl-session-resumption: + mode: cache + cache-store: memcached + memcached: + host: 127.0.0.1 + port: $memc_port + protocol: $memc_proto +hosts: + default: + paths: + /: + file.dir: @{[ DOC_ROOT ]} +EOT + my $lines = do { + open my $fh, "-|", "openssl s_client -no_ticket $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}}}"; + is $1, $expected; + }; + $spawn_and_connect->("-sess_out $tempdir/session", "New"); + $spawn_and_connect->("-sess_in $tempdir/session", "Reused"); + }; +} -- cgit v1.2.3