Commit | Line | Data |
ec4d7259 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | use Catalyst::Utils; |
d5c890a4 |
5 | use FindBin; |
6 | use lib "$FindBin::Bin/lib"; |
7 | |
ec4d7259 |
8 | BEGIN { |
9 | package Model::Banana; |
10 | |
11 | use base qw/Catalyst::Model/; |
12 | |
13 | package TestCatalyst; $INC{'TestCatalyst.pm'} = 1; |
14 | |
15 | use Catalyst::Runtime '5.70'; |
16 | |
17 | use Moose; |
18 | BEGIN { extends qw/Catalyst/ } |
19 | |
20 | use Catalyst; |
21 | |
22 | after 'setup_components' => sub { |
23 | my $self = shift; |
24 | Catalyst::Utils::inject_component( into => __PACKAGE__, component => 'Model::Banana' ); |
d5c890a4 |
25 | Catalyst::Utils::inject_component( into => __PACKAGE__, component => 'Test::Apple' ); |
ec4d7259 |
26 | Catalyst::Utils::inject_component( into => __PACKAGE__, component => 'Model::Banana', as => 'Cherry' ); |
d5c890a4 |
27 | Catalyst::Utils::inject_component( into => __PACKAGE__, component => 'Test::Apple', as => 'Apple' ); |
ec4d7259 |
28 | }; |
29 | |
30 | TestCatalyst->config( 'home' => '.' ); |
31 | |
32 | TestCatalyst->setup; |
33 | |
34 | } |
35 | |
36 | package main; |
37 | |
38 | use Catalyst::Test qw/TestCatalyst/; |
39 | |
d5c890a4 |
40 | ok( TestCatalyst->controller( $_ ) ) for qw/ Apple Test::Apple /; |
ec4d7259 |
41 | ok( TestCatalyst->model( $_ ) ) for qw/ Banana Cherry /; |
42 | |
43 | done_testing; |