t/aggregate/live_engine_request_escaped_path.t

   1 #!/usr/bin/evn perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/../lib";
   7
   8 use Test::More tests => 6;
   9 use Catalyst::Test 'TestApp';
  10
  11 # test that un-escaped can be feteched.
  12 {
  13
  14     ok( my $response = request('http://localhost/args/params/one/two') );
  15     ok( $response->is_success, 'Response Successful 2xx' );
  16     is( $response->content, 'onetwo' );
  17 }
  18
  19 # test that request with URL-escaped code works.
  20 {
  21     my $response = request('http://localhost/args/param%73/one/two', {
  22         extra_env => { PATH_INFO => '/args/param%73/one/two' },
  23     });
  24
  25     ok( $response );
  26     ok( $response->is_success, 'Response Successful 2xx' );
  27     is( $response->content, 'onetwo' );
  28 }
  29