[PATCH 4/6] t/cgi.t: move dumb HTTP git clone/fetch tests to plack.t

[Eric Wong <e@80x24.org>]

No need to test this via CGI .cgi is a wrapper around
PSGI and PSGI tests are way faster.
---
 t/cgi.t   | 19 -------------------
 t/plack.t | 20 ++++++++++++++++++++
 2 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/t/cgi.t b/t/cgi.t
index 382c21f..a25d2ee 100644
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -90,25 +90,6 @@ EOF
 	like($res->{head}, qr/Status:\s*404/i, "index returns 404");
 }
 
-# dumb HTTP support
-{
-	local $ENV{HOME} = $home;
-	my $path = "/test/info/refs";
-	my $res = cgi_run($path);
-	like($res->{head}, qr/Status:\s*200/i, "info/refs readable");
-	my $orig = $res->{body};
-
-	local $ENV{HTTP_RANGE} = 'bytes=5-10';
-	$res = cgi_run($path);
-	like($res->{head}, qr/Status:\s*206/i, "info/refs partial OK");
-	is($res->{body}, substr($orig, 5, 6), 'partial body OK');
-
-	local $ENV{HTTP_RANGE} = 'bytes=5-';
-	$res = cgi_run($path);
-	like($res->{head}, qr/Status:\s*206/i, "info/refs partial past end OK");
-	is($res->{body}, substr($orig, 5), 'partial body OK past end');
-}
-
 # message-id pages
 {
 	local $ENV{HOME} = $home;
diff --git a/t/plack.t b/t/plack.t
index 1a719b4..14c9b65 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -220,6 +220,26 @@ EOF
 				'redirect from x40 MIDs works');
 		}
 	});
+
+	# dumb HTTP clone/fetch support
+	test_psgi($app, sub {
+		my ($cb) = @_;
+		my $path = '/test/info/refs';
+		my $req = HTTP::Request->new('GET' => $path);
+		my $res = $cb->($req);
+		is(200, $res->code, 'refs readable');
+		my $orig = $res->content;
+
+		$req->header('Range', 'bytes=5-10');
+		$res = $cb->($req);
+		is(206, $res->code, 'got partial response');
+		is($res->content, substr($orig, 5, 6), 'partial body OK');
+
+		$req->header('Range', 'bytes=5-');
+		$res = $cb->($req);
+		is(206, $res->code, 'got partial another response');
+		is($res->content, substr($orig, 5), 'partial body OK past end');
+	});
 }
 
 done_testing();
-- 
EW