t/cgi.t: move expected failure tests to t/plack.t

[public-inbox.git] / t / cgi.t

diff --git a/t/cgi.t b/t/cgi.t
index 382c21fc52e263da108eb6316498799b98f6d563..e705cd76a77b0203aa4ecfccaa529047adb209c3 100644 (file)
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -80,35 +80,6 @@ EOF
        $im->done;
 }
 
-# obvious failures, first
-{
-       local $ENV{HOME} = $home;
-       my $res = cgi_run("/", "", "PUT");
-       like($res->{head}, qr/Status:\s*405/i, "PUT not allowed");
-
-       $res = cgi_run("/");
-       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;