xt/mem-imapd-tls: update aliases to DSdeflate subs

[public-inbox.git] / t / httpd-corner.psgi

diff --git a/t/httpd-corner.psgi b/t/httpd-corner.psgi
index 5fab2ba48d1e39e05cc6bcff9c0005673661cb2f..e9a3a6b7c1c8bbf29a2c1d4658a3530433f9125b 100644 (file)
--- a/t/httpd-corner.psgi
+++ b/t/httpd-corner.psgi
@@ -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 ]
 };