setting correct return value for components

[catagits/Catalyst-Runtime.git] / t / aggregate / unit_core_container_mock_load.t

package MockApp;

use Test::More;
use Cwd;

# Remove all relevant env variables to avoid accidental fail
foreach my $name ( grep { m{^(CATALYST)} } keys %ENV ) {
    delete $ENV{ $name };
}

$ENV{ CATALYST_HOME } = cwd . '/t/lib/MockAppConfigLoader';

use_ok( 'Catalyst' );

__PACKAGE__->config->{ substitutions } = {
    foo => sub { shift; join( '-', @_ ); }
};

__PACKAGE__->setup;

ok( my $conf = __PACKAGE__->config, 'config loads' );
is( $conf->{ 'Controller::Foo' }->{ foo }, 'bar' );
is( $conf->{ 'Controller::Foo' }->{ new }, 'key' );
is( $conf->{ 'Model::Baz' }->{ qux },      'xyzzy' );
is( $conf->{ 'Model::Baz' }->{ another },  'new key' );
is( $conf->{ 'view' },                     'View::TT::New' );
is( $conf->{ 'foo_sub' },                  'x-y' );
is( $conf->{ 'literal_macro' },            '__DATA__', 'literal macro' );
is( $conf->{ 'Plugin::Zot' }->{ zoot },    'zooot');

done_testing;