From 836b47cb7e99a977c5a23b059ca1d0b5065d310e Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Wed, 24 Jul 2024 11:54:23 +0200
Subject: Merging upstream version 1.46.3.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 web/server/h2o/libh2o/t/40session-ticket.t | 133 -----------------------------
 1 file changed, 133 deletions(-)
 delete mode 100644 web/server/h2o/libh2o/t/40session-ticket.t

(limited to 'web/server/h2o/libh2o/t/40session-ticket.t')

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;
-}
-- 
cgit v1.2.3