t/aggregate/unit_core_mvc.t

   1 use Test::More;
   2 use strict;
   3 use warnings;
   4
   5 use Moose::Meta::Class;
   6
   7 use_ok('Catalyst');
   8
   9 our @complist_suffix = qw/C::Controller M::Model V::View Controller::C Model::M View::V Controller::Model::Dummy::Model Model::Dummy::Model/;
  10
  11 our @complist = map { "MyMVCTestApp::$_" } @complist_suffix;
  12
  13 foreach my $comp (@complist) {
  14     Moose::Meta::Class->create(
  15         $comp =>
  16             version => '0.1',
  17     );
  18 }
  19 our $warnings = 0;
  20 our $loaded   = 0;
  21
  22 Moose::Meta::Class->create('Some::Test::Object');
  23
  24 Moose::Meta::Class->create(
  25     'MyMVCTestApp::Model::Test::Object' =>
  26         superclasses => [ 'Catalyst::Model', 'Some::Test::Object' ],
  27 );
  28
  29 {
  30     package MyMVCTestApp;
  31
  32     use base qw/Catalyst/;
  33
  34     sub locate_components {
  35         return (@::complist, 'MyMVCTestApp::Model::Test::Object');
  36     }
  37
  38     no warnings 'redefine';
  39     *Catalyst::Log::warn = sub { $::warnings++ };
  40     *Catalyst::Utils::ensure_class_loaded = sub {
  41         my $class = shift;
  42         $::loaded++
  43             if Class::MOP::is_class_loaded($class) && $class =~ /^MyMVCTestApp/
  44     };
  45
  46     __PACKAGE__->setup;
  47 }
  48
  49 ok( $warnings, 'Issues deprecated warnings' );
  50 is( $loaded, scalar @complist + 1, 'Loaded all components' );
  51
  52 is( MyMVCTestApp->view('View'), 'MyMVCTestApp::V::View', 'V::View ok' );
  53
  54 is( MyMVCTestApp->controller('Controller'),
  55     'MyMVCTestApp::C::Controller', 'C::Controller ok' );
  56
  57 is( MyMVCTestApp->model('Model'), 'MyMVCTestApp::M::Model', 'M::Model ok' );
  58
  59 is( MyMVCTestApp->model('Dummy::Model'), 'MyMVCTestApp::Model::Dummy::Model', 'Model::Dummy::Model ok' );
  60
  61 isa_ok( MyMVCTestApp->model('Test::Object'), 'Some::Test::Object', 'Test::Object ok' );
  62
  63 is( MyMVCTestApp->controller('Model::Dummy::Model'), 'MyMVCTestApp::Controller::Model::Dummy::Model', 'Controller::Model::Dummy::Model ok' );
  64
  65 is( MyMVCTestApp->view('V'), 'MyMVCTestApp::View::V', 'View::V ok' );
  66
  67 is( MyMVCTestApp->controller('C'), 'MyMVCTestApp::Controller::C', 'Controller::C ok' );
  68
  69 is( MyMVCTestApp->model('M'), 'MyMVCTestApp::Model::M', 'Model::M ok' );
  70
  71 # failed search
  72 {
  73     is( MyMVCTestApp->model('DNE'), undef, 'undef for invalid search' );
  74 }
  75
  76 is_deeply( [ sort MyMVCTestApp->views ],
  77            [ qw/V View/ ],
  78            'views ok' );
  79
  80 is_deeply( [ sort MyMVCTestApp->controllers ],
  81            [ qw/C Controller Model::Dummy::Model/ ],
  82            'controllers ok');
  83
  84 is_deeply( [ sort MyMVCTestApp->models ],
  85            [ qw/Dummy::Model M Model Test::Object/ ],
  86            'models ok');
  87
  88 {
  89     $warnings = 0;
  90
  91     is( MyMVCTestApp->view , undef, 'view() w/o a default is undef' );
  92     ok( $warnings, 'warnings thrown for view() w/o a default' );
  93 }
  94
  95 is ( bless ({stash=>{current_view=>'V'}}, 'MyMVCTestApp')->view , 'MyMVCTestApp::View::V', 'current_view ok');
  96
  97 my $view = bless {} , 'MyMVCTestApp::View::V';
  98 is ( bless ({stash=>{current_view_instance=> $view }}, 'MyMVCTestApp')->view , $view, 'current_view_instance ok');
  99
 100 is ( bless ({stash=>{current_view_instance=> $view, current_view=>'MyMVCTestApp::V::View' }}, 'MyMVCTestApp')->view , $view,
 101   'current_view_instance precedes current_view ok');
 102
 103 {
 104     $warnings = 0;
 105
 106     is( MyMVCTestApp->model, undef, 'model() w/o a default is undef' );
 107     ok( $warnings, 'warnings thrown for model() w/o a default' );
 108 }
 109
 110 is ( bless ({stash=>{current_model=>'M'}}, 'MyMVCTestApp')->model , 'MyMVCTestApp::Model::M', 'current_model ok');
 111
 112 my $model = bless {} , 'MyMVCTestApp::Model::M';
 113 is ( bless ({stash=>{current_model_instance=> $model }}, 'MyMVCTestApp')->model , $model, 'current_model_instance ok');
 114
 115 is ( bless ({stash=>{current_model_instance=> $model, current_model=>'MyMVCTestApp::M::Model' }}, 'MyMVCTestApp')->model , $model,
 116   'current_model_instance precedes current_model ok');
 117
 118 {
 119     use FindBin '$Bin';
 120     use lib "$Bin/../lib";
 121
 122     use Catalyst::Test 'TestAppController';
 123
 124     is( get('/foo/test_controller'), 'bar', 'controller() with empty args returns current controller' );
 125 }
 126
 127 our @complist_default_view =
 128     map { "MyMVCTestAppDefaultView::$_" } @complist_suffix;
 129
 130 {
 131     package MyMVCTestAppDefaultView;
 132
 133     use base qw/Catalyst/;
 134
 135     sub locate_components {
 136         return @::complist_default_view;
 137     }
 138
 139     no warnings 'redefine';
 140     *Catalyst::Utils::ensure_class_loaded = sub {
 141         my $class = shift;
 142         $::loaded++
 143             if Class::MOP::is_class_loaded($class) && $class =~ /^MyMVCTestAppDefaultView/
 144     };
 145
 146     __PACKAGE__->config( default_view => 'V' );
 147
 148     __PACKAGE__->setup;
 149 }
 150
 151 is( bless ({stash=>{}}, 'MyMVCTestAppDefaultView')->view, 'MyMVCTestAppDefaultView::View::V', 'default_view ok' );
 152 is( MyMVCTestAppDefaultView->view , 'MyMVCTestAppDefaultView::View::V', 'default_view in class method ok' );
 153
 154 our @complist_default_model =
 155     map { "MyMVCTestAppDefaultModel::$_" } @complist_suffix;
 156
 157 {
 158     package MyMVCTestAppDefaultModel;
 159
 160     use base qw/Catalyst/;
 161
 162     sub locate_components {
 163         return @::complist_default_model;
 164     }
 165
 166     no warnings 'redefine';
 167     *Catalyst::Utils::ensure_class_loaded = sub {
 168         my $class = shift;
 169         $::loaded++
 170             if Class::MOP::is_class_loaded($class) && $class =~ /^MyMVCTestAppDefaultModel/
 171     };
 172
 173     __PACKAGE__->config( default_model => 'M' );
 174
 175     __PACKAGE__->setup;
 176 }
 177
 178 is( bless ({stash=>{}}, 'MyMVCTestAppDefaultModel')->model , 'MyMVCTestAppDefaultModel::Model::M', 'default_model ok' );
 179 is( MyMVCTestAppDefaultModel->model , 'MyMVCTestAppDefaultModel::Model::M', 'default_model in class method ok' );
 180
 181 # regexp behavior tests
 182 {
 183     # is_deeply is used because regexp behavior means list context
 184     is_deeply( [ MyMVCTestApp->view( qr{^V[ie]+w$} ) ], [ 'MyMVCTestApp::V::View' ], 'regexp view ok' );
 185     is_deeply( [ MyMVCTestApp->controller( qr{Dummy\::Model$} ) ], [ 'MyMVCTestApp::Controller::Model::Dummy::Model' ], 'regexp controller ok' );
 186     is_deeply( [ MyMVCTestApp->model( qr{Dum{2}y} ) ], [ 'MyMVCTestApp::Model::Dummy::Model' ], 'regexp model ok' );
 187
 188     # object w/ qr{}
 189     is_deeply( [ MyMVCTestApp->model( qr{Test} ) ], [ MyMVCTestApp->components->{'MyMVCTestApp::Model::Test::Object'} ], 'Object returned' );
 190
 191     {
 192         $warnings = 0;
 193
 194         # object w/ regexp fallback
 195         is( MyMVCTestApp->model( 'Test' ), undef, 'no regexp fallback' );
 196         ok( $warnings, 'regexp fallback warnings' );
 197     }
 198
 199     is( MyMVCTestApp->view('MyMVCTestApp::V::View$'), undef, 'no regexp fallback');
 200
 201     is( MyMVCTestApp->controller('MyMVCTestApp::C::Controller$'), undef, 'no regexp fallback');
 202
 203     is( MyMVCTestApp->model('MyMVCTestApp::M::Model$'), undef, 'no regexp fallback');
 204 }
 205
 206 {
 207     my @expected = qw( MyMVCTestApp::C::Controller MyMVCTestApp::Controller::C );
 208     is_deeply( [ sort MyMVCTestApp->controller( qr{^C} ) ], \@expected, 'multiple controller returns from regexp search' );
 209 }
 210
 211 {
 212     my @expected = qw( MyMVCTestApp::V::View MyMVCTestApp::View::V );
 213     is_deeply( [ sort MyMVCTestApp->view( qr{^V} ) ], \@expected, 'multiple view returns from regexp search' );
 214 }
 215
 216 {
 217     my @expected = qw( MyMVCTestApp::M::Model MyMVCTestApp::Model::M );
 218     is_deeply( [ sort MyMVCTestApp->model( qr{^M} ) ], \@expected, 'multiple model returns from regexp search' );
 219 }
 220
 221 # failed search
 222 {
 223     is( scalar MyMVCTestApp->controller( qr{DNE} ), 0, '0 results for failed search' );
 224 }
 225
 226 #checking @args passed to ACCEPT_CONTEXT
 227 {
 228     my $args;
 229
 230     {
 231         no warnings 'once';
 232         *MyMVCTestApp::Model::M::ACCEPT_CONTEXT = sub { my ($self, $c, @args) = @_; $args= \@args};
 233         *MyMVCTestApp::View::V::ACCEPT_CONTEXT = sub { my ($self, $c, @args) = @_; $args= \@args};
 234     }
 235
 236     my $c = bless {}, 'MyMVCTestApp';
 237
 238     # test accept-context with class rather than instance
 239     MyMVCTestApp->model('M', qw/foo bar/);
 240     is_deeply($args, [qw/foo bar/], 'MyMVCTestApp->model args passed to ACCEPT_CONTEXT ok');
 241
 242
 243     $c->model('M', qw/foo bar/);
 244     is_deeply($args, [qw/foo bar/], '$c->model args passed to ACCEPT_CONTEXT ok');
 245
 246     my $x = $c->view('V', qw/foo2 bar2/);
 247     is_deeply($args, [qw/foo2 bar2/], '$c->view args passed to ACCEPT_CONTEXT ok');
 248
 249 }
 250
 251 {
 252     package MyApp::WithoutRegexFallback;
 253
 254     use base qw/Catalyst/;
 255
 256     __PACKAGE__->config( { disable_component_resolution_regex_fallback => 1 } );
 257
 258     __PACKAGE__->components( { map { ( ref($_)||$_ , $_ ) }
 259         qw/MyApp::WithoutRegexFallback::Controller::Another::Foo/ } );
 260
 261     # allow $c->log->warn to work
 262     __PACKAGE__->setup_log;
 263 }
 264
 265 {
 266     # test if non-regex component retrieval still works
 267     is( MyApp::WithoutRegexFallback->controller('Another::Foo'),
 268         'MyApp::WithoutRegexFallback::Controller::Another::Foo', 'controller Another::Foo found');
 269 }
 270
 271 {
 272     my $warnings = 0;
 273     no warnings 'redefine';
 274     local *Catalyst::Log::warn = sub { $warnings++ };
 275
 276     # try to get nonexisting object w/o regexp fallback
 277     is( MyApp::WithoutRegexFallback->controller('Foo'), undef, 'no controller Foo found');
 278 }
 279
 280 done_testing;