t/aggregate/unit_utils_request.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 4;
   5
   6 use Catalyst::Utils;
   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