1 # 2 initial tests, and 6 per component in the loop below
2 # (do not forget to update the number of components in test 3 as well)
3 # 5 extra tests for the loading options
4 use Test::More tests => 2 + 6 * 24 + 5;
14 my $libdir = 'test_trash';
15 unshift(@INC, $libdir);
17 my $appclass = 'TestComponents';
19 { type => 'Controller', prefix => 'C', name => 'Bar' },
20 { type => 'Controller', prefix => 'C', name => 'Foo::Bar' },
21 { type => 'Controller', prefix => 'C', name => 'Foo::Foo::Bar' },
22 { type => 'Controller', prefix => 'C', name => 'Foo::Foo::Foo::Bar' },
23 { type => 'Controller', prefix => 'Controller', name => 'Bar::Bar::Bar::Foo' },
24 { type => 'Controller', prefix => 'Controller', name => 'Bar::Bar::Foo' },
25 { type => 'Controller', prefix => 'Controller', name => 'Bar::Foo' },
26 { type => 'Controller', prefix => 'Controller', name => 'Foo' },
27 { type => 'Model', prefix => 'M', name => 'Bar' },
28 { type => 'Model', prefix => 'M', name => 'Foo::Bar' },
29 { type => 'Model', prefix => 'M', name => 'Foo::Foo::Bar' },
30 { type => 'Model', prefix => 'M', name => 'Foo::Foo::Foo::Bar' },
31 { type => 'Model', prefix => 'Model', name => 'Bar::Bar::Bar::Foo' },
32 { type => 'Model', prefix => 'Model', name => 'Bar::Bar::Foo' },
33 { type => 'Model', prefix => 'Model', name => 'Bar::Foo' },
34 { type => 'Model', prefix => 'Model', name => 'Foo' },
35 { type => 'View', prefix => 'V', name => 'Bar' },
36 { type => 'View', prefix => 'V', name => 'Foo::Bar' },
37 { type => 'View', prefix => 'V', name => 'Foo::Foo::Bar' },
38 { type => 'View', prefix => 'V', name => 'Foo::Foo::Foo::Bar' },
39 { type => 'View', prefix => 'View', name => 'Bar::Bar::Bar::Foo' },
40 { type => 'View', prefix => 'View', name => 'Bar::Bar::Foo' },
41 { type => 'View', prefix => 'View', name => 'Bar::Foo' },
42 { type => 'View', prefix => 'View', name => 'Foo' },
45 sub write_component_file {
46 my ($dir_list, $module_name, $content) = @_;
48 my $dir = File::Spec->catdir(@$dir_list);
49 my $file = File::Spec->catfile($dir, $module_name . '.pm');
51 mkpath(join(q{/}, @$dir_list) );
52 open(my $fh, '>', $file) or die "Could not open file $file for writing: $!";
57 sub make_component_file {
58 my ($type, $prefix, $name) = @_;
60 my $compbase = "Catalyst::${type}";
61 my $fullname = "${appclass}::${prefix}::${name}";
62 my @namedirs = split(/::/, $name);
63 my $name_final = pop(@namedirs);
64 my @dir_list = ($libdir, $appclass, $prefix, @namedirs);
66 write_component_file(\@dir_list, $name_final, <<EOF);
71 my \$self = shift->next::method(\@_);
73 *{\__PACKAGE__ . "::whoami"} = sub { return \__PACKAGE__; };
81 foreach my $component (@components) {
82 make_component_file($component->{type},
87 my $shut_up_deprecated_warnings = q{
89 my $old_logger = __PACKAGE__->log;
90 my $logger = Test::MockObject->new;
91 $logger->mock('warn', sub {
93 return if $_[0] =~ /deprecated/;
94 $old_logger->warn(@_);
96 __PACKAGE__->log($logger);
99 eval "package $appclass; use Catalyst; $shut_up_deprecated_warnings __PACKAGE__->setup";
101 can_ok( $appclass, 'components');
103 my $complist = $appclass->components;
105 # the +1 below is for the app class itself
106 is(scalar keys %$complist, 24+1, "Correct number of components loaded");
108 foreach (keys %$complist) {
110 # Skip the component which happens to be the app itself
111 next if $_ eq $appclass;
113 my $instance = $appclass->component($_);
114 isa_ok($instance, $_);
115 can_ok($instance, 'whoami');
116 is($instance->whoami, $_);
118 if($_ =~ /^${appclass}::(?:V|View)::(.*)/) {
120 isa_ok($instance, 'Catalyst::View');
121 can_ok($appclass->view($moniker), 'whoami');
122 is($appclass->view($moniker)->whoami, $_);
124 elsif($_ =~ /^${appclass}::(?:M|Model)::(.*)/) {
126 isa_ok($instance, 'Catalyst::Model');
127 can_ok($appclass->model($moniker), 'whoami');
128 is($appclass->model($moniker)->whoami, $_);
130 elsif($_ =~ /^${appclass}::(?:C|Controller)::(.*)/) {
132 isa_ok($instance, 'Catalyst::Controller');
133 can_ok($appclass->controller($moniker), 'whoami');
134 is($appclass->controller($moniker)->whoami, $_);
137 die "Something is wrong with this test, this should"
138 . " have been unreachable";
144 # test extra component loading options
146 $appclass = 'ExtraOptions';
147 push @components, { type => 'View', prefix => 'Extra', name => 'Foo' };
149 foreach my $component (@components) {
150 make_component_file($component->{type},
151 $component->{prefix},
158 $shut_up_deprecated_warnings
159 __PACKAGE__->config->{ setup_components } = {
160 search_extra => [ '::Extra' ],
161 except => [ "${appclass}::Controller::Foo" ]
166 can_ok( $appclass, 'components');
168 $complist = $appclass->components;
170 is(scalar keys %$complist, 24+1, "Correct number of components loaded");
172 ok( !exists $complist->{ "${appclass}::Controller::Foo" }, 'Controller::Foo was skipped' );
173 ok( exists $complist->{ "${appclass}::Extra::Foo" }, 'Extra::Foo was loaded' );
177 $appclass = "ComponentOnce";
179 write_component_file([$libdir, $appclass, 'Model'], 'TopLevel', <<EOF);
180 package ${appclass}::Model::TopLevel;
181 use base 'Catalyst::Model';
184 my \$self = shift->next::method(\@_);
186 *{\__PACKAGE__ . "::whoami"} = sub { return \__PACKAGE__; };
190 package ${appclass}::Model::TopLevel::Nested;
192 sub COMPONENT { die "COMPONENT called in the wrong order!"; }
198 write_component_file([$libdir, $appclass, 'Model', 'TopLevel'], 'Nested', <<EOF);
199 package ${appclass}::Model::TopLevel::Nested;
200 use base 'Catalyst::Model';
202 no warnings 'redefine';
203 sub COMPONENT { return shift->next::method(\@_); }
208 eval "package $appclass; use Catalyst; __PACKAGE__->setup";
210 is($@, '', "Didn't load component twice");