diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-03-09 13:19:48 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-03-09 13:20:02 +0000 |
commit | 58daab21cd043e1dc37024a7f99b396788372918 (patch) | |
tree | 96771e43bb69f7c1c2b0b4f7374cb74d7866d0cb /web/server/h2o/libh2o/t/40memcached-session-resumption.t | |
parent | Releasing debian version 1.43.2-1. (diff) | |
download | netdata-58daab21cd043e1dc37024a7f99b396788372918.tar.xz netdata-58daab21cd043e1dc37024a7f99b396788372918.zip |
Merging upstream version 1.44.3.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'web/server/h2o/libh2o/t/40memcached-session-resumption.t')
-rw-r--r-- | web/server/h2o/libh2o/t/40memcached-session-resumption.t | 62 |
1 files changed, 62 insertions, 0 deletions
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 000000000..129affbe0 --- /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"); + }; +} |