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 --- web/server/h2o/libh2o/t/40protocol.t | 63 ++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 web/server/h2o/libh2o/t/40protocol.t (limited to 'web/server/h2o/libh2o/t/40protocol.t') diff --git a/web/server/h2o/libh2o/t/40protocol.t b/web/server/h2o/libh2o/t/40protocol.t new file mode 100644 index 00000000..e12f0160 --- /dev/null +++ b/web/server/h2o/libh2o/t/40protocol.t @@ -0,0 +1,63 @@ +use strict; +use warnings; +use Digest::MD5 qw(md5_hex); +use Test::More; +use t::Util; + +my %files = map { do { + my $fn = DOC_ROOT . "/$_"; + +($_ => { size => +(stat $fn)[7], md5 => md5_file($fn) }); +} } qw(index.txt halfdome.jpg); + +my $server = spawn_h2o(<< "EOT"); +hosts: + default: + paths: + /: + file.dir: @{[ DOC_ROOT ]} +EOT + +my $port = $server->{port}; +my $tls_port = $server->{tls_port}; + +subtest 'curl' => sub { + run_with_curl($server, sub { + my ($proto, $port, $curl) = @_; + for my $file (sort keys %files) { + my $content = `$curl --silent --show-error $proto://127.0.0.1:$port/$file`; + is length($content), $files{$file}->{size}, "$file (size)"; + is md5_hex($content), $files{$file}->{md5}, "$file (md5)"; + } + }); +}; + +subtest 'nghttp' => sub { + plan skip_all => 'nghttp not found' + unless prog_exists('nghttp'); + my $doit = sub { + my ($proto, $port) = @_; + my $opt = $proto eq 'http' ? '-u' : ''; + for my $file (sort keys %files) { + my $content = `nghttp $opt $proto://127.0.0.1:$port/$file`; + is length($content), $files{$file}->{size}, "$proto://127.0.0.1/$file (size)"; + is md5_hex($content), $files{$file}->{md5}, "$proto://127.0.0.1/$file (md5)"; + } + my $out = `nghttp -u -m 100 $proto://127.0.0.1:$port/index.txt`; + is $out, "hello\n" x 100, "$proto://127.0.0.1/index.txt x 100 times"; + }; + $doit->('http', $port); + subtest 'https' => sub { + plan skip_all => 'OpenSSL does not support protocol negotiation; it is too old' + unless openssl_can_negotiate(); + $doit->('https', $tls_port); + }; +}; + +subtest 'ab' => sub { + plan skip_all => 'ab not found' + unless prog_exists('ab'); + ok(system("ab -c 10 -n 10000 -k http://127.0.0.1:$port/index.txt") == 0); + ok(system("ab -f tls1 -c 10 -n 10000 -k https://127.0.0.1:$tls_port/index.txt") == 0); +}; + +done_testing; -- cgit v1.2.3