Commit | Line | Data |
0a7a5cf7 |
1 | use strict; |
2 | use warnings; |
3 | |
5d50f369 |
4 | use Test::More tests => 4; |
0a7a5cf7 |
5 | |
5d50f369 |
6 | use Catalyst::Utils; |
0a7a5cf7 |
7 | |
8 | { |
9 | my $url = "/dump"; |
10 | ok( |
11 | my $request = Catalyst::Utils::request($url), |
12 | "Request: simple get without protocol nor host" |
13 | ); |
14 | like( $request->uri, qr|^http://localhost/|, |
15 | " has default protocol and host" ); |
16 | } |
17 | |
18 | { |
19 | my $url = "/dump?url=http://www.somewhere.com/"; |
20 | ok( |
21 | my $request = Catalyst::Utils::request($url), |
22 | "Same with param containing a url" |
23 | ); |
24 | like( $request->uri, qr|^http://localhost/|, |
25 | " has default protocol and host" ); |
26 | } |
27 | |