1 # way too many tests to count
10 my $libdir = 'test_trash';
12 unshift(@INC, $libdir);
14 my $appclass = 'TestComponents';
16 { type => 'Controller', prefix => 'C', name => 'Bar' },
17 { type => 'Controller', prefix => 'C', name => 'Foo::Bar' },
18 { type => 'Controller', prefix => 'C', name => 'Foo::Foo::Bar' },
19 { type => 'Controller', prefix => 'C', name => 'Foo::Foo::Foo::Bar' },
20 { type => 'Controller', prefix => 'Controller', name => 'Bar::Bar::Bar::Foo' },
21 { type => 'Controller', prefix => 'Controller', name => 'Bar::Bar::Foo' },
22 { type => 'Controller', prefix => 'Controller', name => 'Bar::Foo' },
23 { type => 'Controller', prefix => 'Controller', name => 'Foo' },
24 { type => 'Model', prefix => 'M', name => 'Bar' },
25 { type => 'Model', prefix => 'M', name => 'Foo::Bar' },
26 { type => 'Model', prefix => 'M', name => 'Foo::Foo::Bar' },
27 { type => 'Model', prefix => 'M', name => 'Foo::Foo::Foo::Bar' },
28 { type => 'Model', prefix => 'Model', name => 'Bar::Bar::Bar::Foo' },
29 { type => 'Model', prefix => 'Model', name => 'Bar::Bar::Foo' },
30 { type => 'Model', prefix => 'Model', name => 'Bar::Foo' },
31 { type => 'Model', prefix => 'Model', name => 'Foo' },
32 { type => 'View', prefix => 'V', name => 'Bar' },
33 { type => 'View', prefix => 'V', name => 'Foo::Bar' },
34 { type => 'View', prefix => 'V', name => 'Foo::Foo::Bar' },
35 { type => 'View', prefix => 'V', name => 'Foo::Foo::Foo::Bar' },
36 { type => 'View', prefix => 'View', name => 'Bar::Bar::Bar::Foo' },
37 { type => 'View', prefix => 'View', name => 'Bar::Bar::Foo' },
38 { type => 'View', prefix => 'View', name => 'Bar::Foo' },
39 { type => 'View', prefix => 'View', name => 'Foo' },
42 sub write_component_file {
43 my ($dir_list, $module_name, $content) = @_;
45 my $dir = File::Spec->catdir(@$dir_list);
46 my $file = File::Spec->catfile($dir, $module_name . '.pm');
48 mkpath(join(q{/}, @$dir_list) );
49 open(my $fh, '>', $file) or die "Could not open file $file for writing: $!";
54 sub make_component_file {
55 my ($libdir, $appclass, $type, $prefix, $name) = @_;
57 my $compbase = "Catalyst::${type}";
58 my $fullname = "${appclass}::${prefix}::${name}";
59 my @namedirs = split(/::/, $name);
60 my $name_final = pop(@namedirs);
61 my @dir_list = ($libdir, $appclass, $prefix, @namedirs);
63 write_component_file(\@dir_list, $name_final, <<EOF);
68 my \$self = shift->next::method(\@_);
70 *{\__PACKAGE__ . "::whoami"} = sub { return \__PACKAGE__; };
78 foreach my $component (@components) {
88 my $shut_up_deprecated_warnings = q{
89 __PACKAGE__->log(Catalyst::Log->new('fatal'));
92 eval "package $appclass; use Catalyst; $shut_up_deprecated_warnings __PACKAGE__->setup";
95 [ sort $appclass->locate_components ],
96 [ map { $appclass . '::' . $_->{prefix} . '::' . $_->{name} } @components ], 'locate_components finds the components correctly'
99 can_ok( $appclass, 'components');
101 my $complist = $appclass->components;
103 is(scalar keys %$complist, 24, "Correct number of components loaded");
105 foreach (keys %$complist) {
107 # Skip the component which happens to be the app itself
108 next if $_ eq $appclass;
110 my $instance = $appclass->component($_);
111 isa_ok($instance, $_);
112 can_ok($instance, 'whoami');
113 is($instance->whoami, $_);
115 if($_ =~ /^${appclass}::(?:V|View)::(.*)/) {
117 isa_ok($instance, 'Catalyst::View');
118 can_ok($appclass->view($moniker), 'whoami');
119 is($appclass->view($moniker)->whoami, $_);
121 elsif($_ =~ /^${appclass}::(?:M|Model)::(.*)/) {
123 isa_ok($instance, 'Catalyst::Model');
124 can_ok($appclass->model($moniker), 'whoami');
125 is($appclass->model($moniker)->whoami, $_);
127 elsif($_ =~ /^${appclass}::(?:C|Controller)::(.*)/) {
129 isa_ok($instance, 'Catalyst::Controller');
130 can_ok($appclass->controller($moniker), 'whoami');
131 is($appclass->controller($moniker)->whoami, $_);
134 die "Something is wrong with this test, this should"
135 . " have been unreachable";
141 # test extra component loading options
143 $appclass = 'ExtraOptions';
144 push @components, { type => 'View', prefix => 'Extra', name => 'Foo' };
146 foreach my $component (@components) {
151 $component->{prefix},
157 # FIXME - any backcompat planned?
158 skip "search_extra has been removed", 5;
162 $shut_up_deprecated_warnings
163 __PACKAGE__->config->{ setup_components } = {
164 search_extra => [ '::Extra' ],
165 except => [ "${appclass}::Controller::Foo" ]
172 search_extra => [ '::Extra' ],
173 except => [ "${appclass}::Controller::Foo" ]
175 my @components_located = $appclass->locate_components($config);
176 my @components_expected;
178 my $name = $appclass . '::' . $_->{prefix} . '::' . $_->{name};
179 push @components_expected, $name if $name ne "${appclass}::Controller::Foo";
182 [ sort @components_located ],
183 [ sort @components_expected ],
184 'locate_components finds the components correctly'
188 can_ok( $appclass, 'components');
190 $complist = $appclass->components;
192 is(scalar keys %$complist, 24+1, "Correct number of components loaded");
194 ok( !exists $complist->{ "${appclass}::Controller::Foo" }, 'Controller::Foo was skipped' );
195 ok( exists $complist->{ "${appclass}::Extra::Foo" }, 'Extra::Foo was loaded' );
200 $appclass = "ComponentOnce";
202 write_component_file([$libdir, $appclass, 'Model'], 'TopLevel', <<EOF);
203 package ${appclass}::Model::TopLevel;
204 use base 'Catalyst::Model';
207 my \$self = shift->next::method(\@_);
209 *{\__PACKAGE__ . "::whoami"} = sub { return \__PACKAGE__; };
210 *${appclass}::Model::TopLevel::GENERATED::ACCEPT_CONTEXT = sub {
211 return bless {}, 'FooBarBazQuux';
216 package ${appclass}::Model::TopLevel::Nested;
218 sub COMPONENT { die "COMPONENT called in the wrong order!"; }
224 write_component_file([$libdir, $appclass, 'Model', 'TopLevel'], 'Nested', <<EOF);
225 package ${appclass}::Model::TopLevel::Nested;
226 use base 'Catalyst::Model';
229 no warnings 'redefine';
230 sub COMPONENT { \$called++;return shift->next::method(\@_); }
231 sub called { return \$called };
236 eval "package $appclass; use Catalyst; __PACKAGE__->setup";
238 is($@, '', "Didn't load component twice");
239 is($appclass->model('TopLevel::Nested')->called,1, 'COMPONENT called once');
241 # FIXME - OMG why should this even work?!!
242 ok($appclass->model('TopLevel::GENERATED'), 'Have generated model');
243 is(ref($appclass->model('TopLevel::GENERATED')), 'FooBarBazQuux',
244 'ACCEPT_CONTEXT in generated inner package fired as expected');
246 $appclass = "InnerComponent";
249 package InnerComponent::Controller::Test;
250 use base 'Catalyst::Controller';
253 $INC{'InnerComponent/Controller/Test.pm'} = 1;
255 eval "package $appclass; use Catalyst; __PACKAGE__->setup";
257 isa_ok($appclass->controller('Test'), 'Catalyst::Controller');