From 58daab21cd043e1dc37024a7f99b396788372918 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 9 Mar 2024 14:19:48 +0100 Subject: Merging upstream version 1.44.3. Signed-off-by: Daniel Baumann --- web/server/h2o/libh2o/t/50fastcgi-cgi.t | 35 +++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 web/server/h2o/libh2o/t/50fastcgi-cgi.t (limited to 'web/server/h2o/libh2o/t/50fastcgi-cgi.t') diff --git a/web/server/h2o/libh2o/t/50fastcgi-cgi.t b/web/server/h2o/libh2o/t/50fastcgi-cgi.t new file mode 100644 index 000000000..c9440f391 --- /dev/null +++ b/web/server/h2o/libh2o/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(); -- cgit v1.2.3