summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/50reverse-proxy-preserve-case.t
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-30 02:49:40 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-30 02:49:40 +0000
commitc96f16e8103783f6b98d9f844ea3a7f2195e4834 (patch)
tree479bef5e7eb5d4f04ba171931c8b47335734e161 /debian/vendor-h2o/t/50reverse-proxy-preserve-case.t
parentMerging upstream version 1.9.4. (diff)
downloaddnsdist-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.t68
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();