qspawn: reinstate filter support, add gzip filter

We'll be supporting gzipped from sqlite3(1) dumps
for altid files in future commits.

In the future (and if we survive), we may replace
Plack::Middleware::Deflater with our own GzipFilter to work
better with asynchronous responses without relying on
memory-intensive anonymous subs.

1 files changed, 9 insertions, 0 deletions

diff --git a/t/httpd-corner.psgi b/t/httpd-corner.psgi
index 35d1216e..f2427234 100644
--- a/t/httpd-corner.psgi
+++ b/t/httpd-corner.psgi
@@ -85,6 +85,15 @@ my $app = sub {
                         close $null;
                         [ 200, [ qw(Content-Type application/octet-stream) ]];
                 });
+        } elsif ($path eq '/psgi-return-gzip') {
+                require PublicInbox::Qspawn;
+                require PublicInbox::GzipFilter;
+                my $cmd = [qw(echo hello world)];
+                my $qsp = PublicInbox::Qspawn->new($cmd);
+                $env->{'qspawn.filter'} = PublicInbox::GzipFilter->new;
+                return $qsp->psgi_return($env, undef, sub {
+                        [ 200, [ qw(Content-Type application/octet-stream)]]
+                });
         } elsif ($path eq '/pid') {
                 $code = 200;
                 push @$body, "$$\n";