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
|
use Test::More;
use Dancer::Request;
plan tests => 2;
my $env = {
'psgi.url_scheme' => 'http',
REQUEST_METHOD => 'GET',
SCRIPT_NAME => '/',
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->uri_base,
'http://localhost:5000',
'remove trailing slash if only one',
);
$env->{'SCRIPT_NAME'} = '/foo/';
$req = Dancer::Request->new(env => $env);
is(
$req->uri_base,
'http://localhost:5000/foo/',
'keeping trailing slash if not only',
);
|
