t/httpd-corner: additional callback test

Just to ensure we hit the code path independently of
WWW code.

1 files changed, 9 insertions, 0 deletions

diff --git a/t/httpd-corner.psgi b/t/httpd-corner.psgi
index 349b35df..da8a2ee8 100644
--- a/t/httpd-corner.psgi
+++ b/t/httpd-corner.psgi
@@ -47,6 +47,15 @@ my $app = sub {
         } elsif ($path eq '/host-port') {
                 $code = 200;
                 push @$body, "$env->{REMOTE_ADDR}:$env->{REMOTE_PORT}";
+        } elsif ($path eq '/callback') {
+                return sub {
+                        my ($res) = @_;
+                        my $buf = "hello world\n";
+                        push @$h, 'Content-Length', length($buf);
+                        my $fh = $res->([200, $h]);
+                        $fh->write($buf);
+                        $fh->close;
+                }
         }
 
         [ $code, $h, $body ]