X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fhttpd-corner.psgi;h=f8396907f2b25da4211d17396bde3cccae0ba712;hb=3d41aa23f35501ca92aab8aa42980fa73f7fa74f;hp=349b35dfb22d32df1096af54cba0f4001b19f7b0;hpb=b38de6f02fa04e36b881d2aad9c7f792beb0b6a1;p=public-inbox.git

diff --git a/t/httpd-corner.psgi b/t/httpd-corner.psgi
index 349b35df..f8396907 100644
--- a/t/httpd-corner.psgi
+++ b/t/httpd-corner.psgi
@@ -1,4 +1,4 @@
-# Copyright (C) 2016 all contributors <meta@public-inbox.org>
+# Copyright (C) 2016-2018 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 # corner case tests for the generic PSGI server
 # Usage: plackup [OPTIONS] /path/to/this/file
@@ -30,6 +30,7 @@ my $app = sub {
 			return sub {
 				open my $f, '<', $fifo or
 						die "open $fifo: $!\n";
+				local $/ = "\n";
 				my @r = <$f>;
 				$_[0]->([200, $h, \@r ]);
 			};
@@ -38,6 +39,7 @@ my $app = sub {
 				my $fh = $_[0]->([200, $h]);
 				open my $f, '<', $fifo or
 						die "open $fifo: $!\n";
+				local $/ = "\n";
 				while (defined(my $l = <$f>)) {
 					$fh->write($l);
 				}
@@ -47,6 +49,29 @@ 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;
+		}
+	} elsif ($path eq '/empty') {
+		$code = 200;
+	} elsif ($path eq '/getline-die') {
+		$code = 200;
+		$body = Plack::Util::inline_object(
+			getline => sub { die 'GETLINE FAIL' },
+			close => sub { die 'CLOSE FAIL' },
+		);
+	} elsif ($path eq '/close-die') {
+		$code = 200;
+		$body = Plack::Util::inline_object(
+			getline => sub { undef },
+			close => sub { die 'CLOSE FAIL' },
+		);
 	}
 
 	[ $code, $h, $body ]