summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/50fastcgi-cgi.t
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-13 21:12:02 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-13 21:12:02 +0000
commit77e50caaf2ef81cd91075cf836fed0e75718ffb4 (patch)
tree53b7b411290b63192fc9e924a3b6b65cdf67e9d0 /debian/vendor-h2o/t/50fastcgi-cgi.t
parentAdding upstream version 1.8.3. (diff)
downloaddnsdist-77e50caaf2ef81cd91075cf836fed0e75718ffb4.tar.xz
dnsdist-77e50caaf2ef81cd91075cf836fed0e75718ffb4.zip
Adding debian version 1.8.3-2.debian/1.8.3-2
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rw-r--r--debian/vendor-h2o/t/50fastcgi-cgi.t35
1 files changed, 35 insertions, 0 deletions
diff --git a/debian/vendor-h2o/t/50fastcgi-cgi.t b/debian/vendor-h2o/t/50fastcgi-cgi.t
new file mode 100644
index 0000000..c9440f3
--- /dev/null
+++ b/debian/vendor-h2o/t/50fastcgi-cgi.t
@@ -0,0 +1,35 @@
+# this test checks the behavior of `file.custom-handler` and `fastcgi.spawn`
+use strict;
+use warnings;
+use Digest::MD5 qw(md5_hex);
+use File::Temp qw(tempdir);
+use Net::EmptyPort qw(check_port empty_port);
+use Test::More;
+use t::Util;
+
+plan skip_all => 'curl not found'
+ unless prog_exists('curl');
+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, $curl) = @_;
+ my $resp = `$curl --silent $proto://127.0.0.1:$port/hello.cgi?name=world`;
+ is $resp, "Hello world", "GET";
+ $resp = `$curl --silent -F name=world $proto://127.0.0.1:$port/hello.cgi`;
+ is $resp, "Hello world", "POST";
+});
+
+done_testing();