From be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Fri, 19 Apr 2024 04:57:58 +0200 Subject: Adding 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 00000000..c9440f39 --- /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