4 use Test::More tests => 4;
11 my $request = Catalyst::Utils::request($url),
12 "Request: simple get without protocol nor host"
14 like( $request->uri, qr|^http://localhost/|,
15 " has default protocol and host" );
19 my $url = "/dump?url=http://www.somewhere.com/";
21 my $request = Catalyst::Utils::request($url),
22 "Same with param containing a url"
24 like( $request->uri, qr|^http://localhost/|,
25 " has default protocol and host" );