1 files changed, 133 insertions, 0 deletions
diff --git a/web/server/h2o/libh2o/t/40session-ticket.t b/web/server/h2o/libh2o/t/40session-ticket.t
new file mode 100644
index 00000000..2e5d5e4a
--- /dev/null
+++ b/web/server/h2o/libh2o/t/40session-ticket.t
@@ -0,0 +1,133 @@
+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;
+}