X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fhttpd-corner.psgi;h=e9a3a6b7c1c8bbf29a2c1d4658a3530433f9125b;hb=bcc02b78e322f87d942459de874ba68b3fc06c39;hp=5436a74dc56e71fb8ff87614dac1a462ae4eefe8;hpb=af0b0fb7a454470a32c452119d0392e0dedb3fe1;p=public-inbox.git diff --git a/t/httpd-corner.psgi b/t/httpd-corner.psgi index 5436a74d..e9a3a6b7 100644 --- a/t/httpd-corner.psgi +++ b/t/httpd-corner.psgi @@ -48,7 +48,7 @@ my $app = sub { } } elsif ($path eq '/host-port') { $code = 200; - push @$body, "$env->{REMOTE_ADDR}:$env->{REMOTE_PORT}"; + push @$body, "$env->{REMOTE_ADDR} $env->{REMOTE_PORT}"; } elsif ($path eq '/callback') { return sub { my ($res) = @_; @@ -111,8 +111,10 @@ my $app = sub { } elsif ($path eq '/pid') { $code = 200; push @$body, "$$\n"; + } elsif ($path eq '/url_scheme') { + $code = 200; + push @$body, $env->{'psgi.url_scheme'} } - [ $code, $h, $body ] };