1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use strict;
use warnings;
use Test::More;
use Plack::Response;
{
my $res = Plack::Response->new;
$res->redirect('http://www.google.com/');
is $res->location, 'http://www.google.com/';
is $res->code, 302;
is_deeply $res->finalize, [ 302, [ 'Location' => 'http://www.google.com/' ], [] ];
}
{
my $res = Plack::Response->new;
$res->redirect('http://www.google.com/', 301);
is_deeply $res->finalize, [ 301, [ 'Location' => 'http://www.google.com/' ], [] ];
}
done_testing;
|
