diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-30 02:49:40 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-30 02:49:40 +0000 |
commit | c96f16e8103783f6b98d9f844ea3a7f2195e4834 (patch) | |
tree | 479bef5e7eb5d4f04ba171931c8b47335734e161 /debian/vendor-h2o/t/50reverse-proxy-preserve-case.t | |
parent | Merging upstream version 1.9.4. (diff) | |
download | dnsdist-c96f16e8103783f6b98d9f844ea3a7f2195e4834.tar.xz dnsdist-c96f16e8103783f6b98d9f844ea3a7f2195e4834.zip |
Adding debian version 1.9.4-1.debian/1.9.4-1
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/vendor-h2o/t/50reverse-proxy-preserve-case.t')
-rw-r--r-- | debian/vendor-h2o/t/50reverse-proxy-preserve-case.t | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/debian/vendor-h2o/t/50reverse-proxy-preserve-case.t b/debian/vendor-h2o/t/50reverse-proxy-preserve-case.t deleted file mode 100644 index da2aee2..0000000 --- a/debian/vendor-h2o/t/50reverse-proxy-preserve-case.t +++ /dev/null @@ -1,68 +0,0 @@ -use strict; -use warnings; -use Net::EmptyPort qw(check_port empty_port); -use Test::More; -use t::Util; - -plan skip_all => 'curl not found' - unless prog_exists('curl'); -plan skip_all => 'plackup not found' - unless prog_exists('plackup'); -plan skip_all => 'Starlet not found' - unless system('perl -MStarlet /dev/null > /dev/null 2>&1') == 0; - -my $upstream_port = empty_port(); - -my $upstream = new IO::Socket::INET ( - LocalHost => '127.0.0.1', - LocalPort => $upstream_port, - Proto => 'tcp', - Listen => 1, - Reuse => 1 -); -die "cannot create socket $!\n" unless $upstream; - -sub handler_curl { - my $socket = shift; - my $client_socket = $socket->accept(); - - my $data = ""; - $client_socket->recv($data, 4906); - - my $resp = "HTTP/1.0 200 Ok\r\nMyResponseHeader:1\r\nContent-Length:2\r\nConnection: close\r\n\r\nOk"; - $client_socket->send($resp); - $client_socket->flush; - - close($client_socket); - return $data; -}; - - -my $server = spawn_h2o(<< "EOT"); -hosts: - default: - paths: - /: - proxy.reverse.url: http://127.0.0.1:$upstream_port -EOT - -run_with_curl($server, sub { - my ($proto, $port, $curl) = @_; - open(CURL, "$curl -HUpper-Case:TheValue -kv $proto://127.0.0.1:$port/ 2>&1 |"); - my $forwarded = handler_curl($upstream); - my @lines; - while (<CURL>) { - push(@lines, $_); - - } - my $resp = join("", @lines); - if ($curl =~ /http2/) { - like($forwarded, qr{upper-case:\s*TheValue}, "Request header name is lowercased"); - like($resp, qr{myresponseheader:\s*1}, "Response header name is lowercase"); - } else { - like($forwarded, qr{Upper-Case:\s*TheValue}, "Request header name is not lowercased"); - like($resp, qr{MyResponseHeader:\s*1}, "Response header name has case preserved"); - } - }); - -done_testing(); |