t/aggregate/unit_core_uri_for_action.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../lib";
   8
   9 use Test::More;
  10
  11 use_ok('TestApp');
  12
  13 my $dispatcher = TestApp->dispatcher;
  14
  15 #
  16 #   Private Action
  17 #
  18 my $private_action = $dispatcher->get_action_by_path(
  19                        '/class_forward_test_method'
  20                      );
  21
  22 ok(!defined($dispatcher->uri_for_action($private_action)),
  23    "Private action returns undef for URI");
  24
  25 #
  26 #   Path Action
  27 #
  28 my $path_action = $dispatcher->get_action_by_path(
  29                     '/action/testrelative/relative'
  30                   );
  31
  32 is($dispatcher->uri_for_action($path_action), "/action/relative/relative",
  33    "Public path action returns correct URI");
  34
  35 ok(!defined($dispatcher->uri_for_action($path_action, [ 'foo' ])),
  36    "no URI returned for Path action when snippets are given");
  37
  38 #
  39 #   Index Action
  40 #
  41 my $index_action = $dispatcher->get_action_by_path(
  42                      '/action/index/index'
  43                    );
  44
  45 ok(!defined($dispatcher->uri_for_action($index_action, [ 'foo' ])),
  46    "no URI returned for index action when snippets are given");
  47
  48 is($dispatcher->uri_for_action($index_action),
  49    "/action/index",
  50    "index action returns correct path");
  51
  52 #
  53 #   Chained Action
  54 #
  55 my $chained_action = $dispatcher->get_action_by_path(
  56                        '/action/chained/endpoint',
  57                      );
  58
  59 ok(!defined($dispatcher->uri_for_action($chained_action)),
  60    "Chained action without captures returns undef");
  61
  62 ok(!defined($dispatcher->uri_for_action($chained_action, [ 1, 2 ])),
  63    "Chained action with too many captures returns undef");
  64
  65 is($dispatcher->uri_for_action($chained_action, [ 1 ]),
  66    "/chained/foo/1/end",
  67    "Chained action with correct captures returns correct path");
  68
  69 #
  70 #   Tests with Context
  71 #
  72 my $request = Catalyst::Request->new( {
  73                 _log => Catalyst::Log->new,
  74                 base => URI->new('http://127.0.0.1/foo')
  75               } );
  76
  77 my $context = TestApp->new( {
  78                 request => $request,
  79                 namespace => 'yada',
  80               } );
  81
  82 is($context->uri_for($context->controller('Action')),
  83    "http://127.0.0.1/foo/yada/action/",
  84    "uri_for a controller");
  85
  86 is($context->uri_for($path_action),
  87    "http://127.0.0.1/foo/action/relative/relative",
  88    "uri_for correct for path action");
  89
  90 is($context->uri_for($path_action, qw/one two/, { q => 1 }),
  91    "http://127.0.0.1/foo/action/relative/relative/one/two?q=1",
  92    "uri_for correct for path action with args and query");
  93
  94 ok(!defined($context->uri_for($path_action, [ 'blah' ])),
  95    "no URI returned by uri_for for Path action with snippets");
  96
  97 is($context->uri_for($chained_action, [ 1 ], 2, { q => 1 }),
  98    "http://127.0.0.1/foo/chained/foo/1/end/2?q=1",
  99    "uri_for correct for chained with captures, args and query");
 100
 101 #
 102 #   More Chained with Context Tests
 103 #
 104 {
 105     is( $context->uri_for_action( '/action/chained/endpoint2', [1,2], (3,4), { x => 5 } ),
 106         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3/4?x=5',
 107         'uri_for_action correct for chained with multiple captures and args' );
 108
 109     is( $context->uri_for_action( '/action/chained/endpoint2', [1,2,3,4], { x => 5 } ),
 110         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3/4?x=5',
 111         'uri_for_action correct for chained with multiple captures and args combined' );
 112
 113     is( $context->uri_for_action( '/action/chained/three_end', [1,2,3], (4,5,6) ),
 114         'http://127.0.0.1/foo/chained/one/1/two/2/3/three/4/5/6',
 115         'uri_for_action correct for chained with multiple capturing actions' );
 116
 117     is( $context->uri_for_action( '/action/chained/three_end', [1,2,3,4,5,6] ),
 118         'http://127.0.0.1/foo/chained/one/1/two/2/3/three/4/5/6',
 119         'uri_for_action correct for chained with multiple capturing actions and args combined' );
 120
 121     my $action_needs_two = '/action/chained/endpoint2';
 122
 123     ok( ! defined( $context->uri_for_action($action_needs_two, [1],     (2,3)) ),
 124         'uri_for_action returns undef for not enough captures' );
 125
 126     is( $context->uri_for_action($action_needs_two,            [1,2],   (2,3)),
 127         'http://127.0.0.1/foo/chained/foo2/1/2/end2/2/3',
 128         'uri_for_action returns correct uri for correct captures' );
 129
 130     is( $context->uri_for_action($action_needs_two,            [1,2,2,3]),
 131         'http://127.0.0.1/foo/chained/foo2/1/2/end2/2/3',
 132         'uri_for_action returns correct uri for correct captures and args combined' );
 133
 134     ok( ! defined( $context->uri_for_action($action_needs_two, [1,2,3], (2,3)) ),
 135         'uri_for_action returns undef for too many captures' );
 136
 137     is( $context->uri_for_action($action_needs_two, [1,2],   (3)),
 138         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3',
 139         'uri_for_action returns uri with lesser args than specified on action' );
 140
 141     is( $context->uri_for_action($action_needs_two, [1,2,3]),
 142         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3',
 143         'uri_for_action returns uri with lesser args than specified on action with captures combined' );
 144
 145     is( $context->uri_for_action($action_needs_two, [1,2],   (3,4,5)),
 146         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3/4/5',
 147         'uri_for_action returns uri with more args than specified on action' );
 148
 149     is( $context->uri_for_action($action_needs_two, [1,2,3,4,5]),
 150         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3/4/5',
 151         'uri_for_action returns uri with more args than specified on action with captures combined' );
 152
 153     is( $context->uri_for_action($action_needs_two, [1,''], (3,4)),
 154         'http://127.0.0.1/foo/chained/foo2/1//end2/3/4',
 155         'uri_for_action returns uri with empty capture on undef capture' );
 156
 157     is( $context->uri_for_action($action_needs_two, [1,'',3,4]),
 158         'http://127.0.0.1/foo/chained/foo2/1//end2/3/4',
 159         'uri_for_action returns uri with empty capture on undef capture and args combined' );
 160
 161     is( $context->uri_for_action($action_needs_two, [1,2], ('',3)),
 162         'http://127.0.0.1/foo/chained/foo2/1/2/end2//3',
 163         'uri_for_action returns uri with empty arg on undef argument' );
 164
 165     is( $context->uri_for_action($action_needs_two, [1,2,'',3]),
 166         'http://127.0.0.1/foo/chained/foo2/1/2/end2//3',
 167         'uri_for_action returns uri with empty arg on undef argument and args combined' );
 168
 169     is( $context->uri_for_action($action_needs_two, [1,2], (3,'')),
 170         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3/',
 171         'uri_for_action returns uri with empty arg on undef last argument' );
 172
 173     is( $context->uri_for_action($action_needs_two, [1,2,3,'']),
 174         'http://127.0.0.1/foo/chained/foo2/1/2/end2/3/',
 175         'uri_for_action returns uri with empty arg on undef last argument with captures combined' );
 176
 177     my $complex_chained = '/action/chained/empty_chain_f';
 178     is( $context->uri_for_action( $complex_chained, [23], (13), {q => 3} ),
 179         'http://127.0.0.1/foo/chained/empty/23/13?q=3',
 180         'uri_for_action returns correct uri for chain with many empty path parts' );
 181     is( $context->uri_for_action( $complex_chained, [23,13], {q => 3} ),
 182         'http://127.0.0.1/foo/chained/empty/23/13?q=3',
 183         'uri_for_action returns correct uri for chain with many empty path parts with captures and args combined' );
 184
 185     eval { $context->uri_for_action( '/does/not/exist' ) };
 186     like $@, qr{^Can't find action for path '/does/not/exist'},
 187         'uri_for_action croaks on nonexistent path';
 188
 189 }
 190
 191 done_testing;
 192