t/cgi.t: move dumb HTTP git clone/fetch tests to plack.t

No need to test this via CGI .cgi is a wrapper around
PSGI and PSGI tests are way faster.

2 files changed, 20 insertions, 19 deletions

diff --git a/t/cgi.t b/t/cgi.t
index 382c21fc..a25d2eeb 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 1a719b41..14c9b657 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();