summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/50file-custom-handler.t
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-30 02:50:01 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-30 02:50:01 +0000
commit91275eb478ceb58083426099b6da3f4c7e189f19 (patch)
tree260f7d2fa77408b38c5cea96b320b9b0b6713ff2 /debian/vendor-h2o/t/50file-custom-handler.t
parentMerging upstream version 1.9.4. (diff)
downloaddnsdist-91275eb478ceb58083426099b6da3f4c7e189f19.tar.xz
dnsdist-91275eb478ceb58083426099b6da3f4c7e189f19.zip
Merging debian version 1.9.4-1.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/vendor-h2o/t/50file-custom-handler.t')
-rw-r--r--debian/vendor-h2o/t/50file-custom-handler.t96
1 files changed, 0 insertions, 96 deletions
diff --git a/debian/vendor-h2o/t/50file-custom-handler.t b/debian/vendor-h2o/t/50file-custom-handler.t
deleted file mode 100644
index 1acc9c1..0000000
--- a/debian/vendor-h2o/t/50file-custom-handler.t
+++ /dev/null
@@ -1,96 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-use t::Util;
-
-plan skip_all => 'curl not found'
- unless prog_exists('curl');
-
-subtest 'cgi file' => sub {
- eval q{use CGI; 1}
- or plan skip_all => 'CGI.pm not found';
-
- # spawn h2o
- my $server = spawn_h2o(<< "EOT");
-file.custom-handler:
- extension: .cgi
- fastcgi.spawn: "exec \$H2O_ROOT/share/h2o/fastcgi-cgi"
-hosts:
- default:
- paths:
- /robots.txt:
- file.file: @{[DOC_ROOT]}/hello.cgi
-EOT
- run_with_curl($server, sub {
- my ($proto, $port, $cmd) = @_;
- my $resp = `$cmd --silent $proto://127.0.0.1:$port/robots.txt?name=Tobor`;
- is $resp, "Hello Tobor";
- });
-};
-
-subtest 'directory containing cgi files' => sub {
- eval q{use CGI; 1}
- or plan skip_all => 'CGI.pm not found';
-
- # spawn h2o
- my $server = spawn_h2o(<< "EOT");
-file.custom-handler:
- extension: [".cgi"]
- fastcgi.spawn: "exec \$H2O_ROOT/share/h2o/fastcgi-cgi"
-hosts:
- default:
- paths:
- /:
- file.dir: @{[DOC_ROOT]}
-EOT
- run_with_curl($server, sub {
- my ($proto, $port, $cmd) = @_;
- my $resp = `$cmd --silent $proto://127.0.0.1:$port/hello.cgi?name=Tobor`;
- is $resp, "Hello Tobor";
- });
-};
-
-subtest 'SCRIPT_NAME and PATH_INFO for fastcgi' => sub {
- eval q{use CGI; 1}
- or plan skip_all => 'CGI.pm not found';
-
- # spawn h2o
- my $server = spawn_h2o(<< "EOT");
-file.index: ['printenv.cgi']
-file.custom-handler:
- extension: .cgi
- fastcgi.spawn: "exec \$H2O_ROOT/share/h2o/fastcgi-cgi"
-hosts:
- default:
- paths:
- /:
- file.dir: @{[DOC_ROOT]}
- /foo:
- file.dir: @{[DOC_ROOT]}
-EOT
- my $doit = sub {
- my ($path, $expected) = @_;
- subtest $path => sub {
- my $resp = `curl --silent http://127.0.0.1:$server->{port}$path`;
- my $env = +{ map { split(':', $_, 2) } split(/\n/, $resp) };
- for my $key (sort keys %$expected) {
- is $env->{$key}, $expected->{$key}, $key;
- }
- };
- };
-
- $doit->('/printenv.cgi',
- +{ SCRIPT_NAME => '/printenv.cgi', PATH_INFO => undef });
- $doit->('/printenv.cgi/path/info',
- +{ SCRIPT_NAME => '/printenv.cgi', PATH_INFO => '/path/info' });
- $doit->('/foo/printenv.cgi/path/info',
- +{ SCRIPT_NAME => '/foo/printenv.cgi', PATH_INFO => '/path/info' });
- $doit->('/',
- +{ SCRIPT_NAME => '/printenv.cgi', PATH_INFO => undef });
- $doit->('/foo/',
- +{ SCRIPT_NAME => '/foo/printenv.cgi', PATH_INFO => undef });
-
-};
-
-done_testing;
-