1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
use Test::More;
use Dancer::Request;
plan tests => 11;
my $env = {
'psgi.url_scheme' => 'http',
REQUEST_METHOD => 'GET',
SCRIPT_NAME => '/foo',
PATH_INFO => '/bar/baz',
REQUEST_URI => '/foo/bar/baz',
QUERY_STRING => '',
SERVER_NAME => 'localhost',
SERVER_PORT => 5000,
SERVER_PROTOCOL => 'HTTP/1.1',
};
my $req = Dancer::Request->new(env => $env);
is $req->base, 'http://localhost:5000/foo';
is $req->uri_for('bar', { baz => 'baz' }),
'http://localhost:5000/foo/bar?baz=baz';
is $req->uri_for('/bar'), 'http://localhost:5000/foo/bar';
ok $req->uri_for('/bar')->isa('URI'), 'uri_for returns a URI';
ok $req->uri_for('/bar', undef, 1)->isa('URI'), 'uri_for returns a URI (with $dont_escape)';
is $req->request_uri, '/foo/bar/baz';
is $req->path_info, '/bar/baz';
{
local $env->{SCRIPT_NAME} = '';
is $req->uri_for('/foo'), 'http://localhost:5000/foo';
}
{
local $env->{SERVER_NAME} = 0;
is $req->base, 'http://0:5000/foo';
local $env->{HTTP_HOST} = 'oddhostname:5000';
is $req->base, 'http://oddhostname:5000/foo';
}
subtest '$dont_escape' => sub {
plan tests => 2;
my $url = '/bar?a=1&b=2';
is $req->uri_for($url) => 'http://localhost:5000/foo/bar%3Fa=1&b=2',
'escaped';
is $req->uri_for( '/bar?a=1&b=2', {}, 1)
=> 'http://localhost:5000/foo/bar?a=1&b=2',
'unescaped';
}
|
