6 # Remove all relevant env variables to avoid accidental fail
7 foreach my $name ( grep { m{^(CATALYST)} } keys %ENV ) {
11 $ENV{ CATALYST_HOME } = cwd . '/t/lib/MockAppConfigLoader';
15 __PACKAGE__->config->{ substitutions } = {
16 foo => sub { shift; join( '-', @_ ); }
21 ok( my $conf = __PACKAGE__->config, 'config loads' );
22 is( $conf->{ 'Controller::Foo' }->{ foo }, 'bar' );
23 is( $conf->{ 'Controller::Foo' }->{ new }, 'key' );
24 is( $conf->{ 'Model::Baz' }->{ qux }, 'xyzzy' );
25 is( $conf->{ 'Model::Baz' }->{ another }, 'new key' );
26 is( $conf->{ 'view' }, 'View::TT::New' );
27 is( $conf->{ 'foo_sub' }, 'x-y' );
28 is( $conf->{ 'literal_macro' }, '__DATA__', 'literal macro' );
29 is( $conf->{ 'Plugin::Zot' }->{ zoot }, 'zooot');