diff options
-rw-r--r-- | t/cgi.t | 8 | ||||
-rw-r--r-- | t/plack.t | 3 |
2 files changed, 2 insertions, 9 deletions
@@ -195,14 +195,6 @@ EOF } } -# 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 { @@ -92,7 +92,8 @@ EOF 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'; |