t/cgi.t | 8 -------- t/plack.t | 3 ++- diff --git a/t/cgi.t b/t/cgi.t index ac2c69fc8425485525e92f91ae81e90d0849eda4..06519c3e6164e29bed022df425aebdf8fe21f266 100644 --- a/t/cgi.t +++ b/t/cgi.t @@ -195,14 +195,6 @@ is(scalar $p->entries, 3, "parsed three entries"); } } -# redirect list-name-only URLs -{ - local $ENV{HOME} = $home; - my $res = cgi_run("/test"); - like($res->{head}, qr/Status: 301 Moved/, "redirected status"); - like($res->{head}, qr!/test/!, "redirected with slash"); -} - done_testing(); sub run_with_env { diff --git a/t/plack.t b/t/plack.t index 7eb7d7f2814fda2c4977e4bb268c366d39a8952a..70cd20e53306ab5bdfec34ac2d99fc1bf3c91f45 100644 --- a/t/plack.t +++ b/t/plack.t @@ -92,7 +92,8 @@ my $from = 'http://example.com/test'; my $to = "$from/"; my $res = $cb->(GET($from)); is(301, $res->code, 'is permanent redirect'); - is($to, $res->header('Location'), 'redirect location matches'); + is($to, $res->header('Location'), + 'redirect location matches with trailing slash'); }); my $pfx = 'http://example.com/test';