-# Copyright (C) 2014, Eric Wong <normalperson@yhbt.net> and all contributors
+# Copyright (C) 2014-2015 all contributors <meta@public-inbox.org>
# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
use strict;
use warnings;
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');
+}
+
# atom feeds
{
local $ENV{HOME} = $home;