t/21-mock_load_env.t

   1 package MockApp;
   2
   3 use Test::More tests => 9;
   4
   5 use Cwd;
   6 $ENV{ CATALYST_HOME } = cwd . '/t/mockapp';
   7 $ENV{ MOCKAPP_CONFIG } = $ENV{ CATALYST_HOME } . '/mockapp.pl';
   8
   9 use_ok( 'Catalyst', qw( ConfigLoader ) );
  10
  11 __PACKAGE__->config->{ 'Plugin::ConfigLoader' }->{ substitutions } = {
  12     foo => sub { shift; join('-', @_); }
  13 };
  14
  15 __PACKAGE__->setup;
  16
  17 ok( __PACKAGE__->config );
  18 is( __PACKAGE__->config->{ 'Controller::Foo' }->{ foo }, 'bar' );
  19 is( __PACKAGE__->config->{ 'Controller::Foo' }->{ new }, 'key' );
  20 is( __PACKAGE__->config->{ 'Model::Baz' }->{ qux }, 'xyzzy' );
  21 is( __PACKAGE__->config->{ 'Model::Baz' }->{ another }, 'new key' );
  22 is( __PACKAGE__->config->{ 'view' }, 'View::TT::New' );
  23 is( __PACKAGE__->config->{ 'foo_sub' }, 'x-y' );
  24 is( __PACKAGE__->config->{ 'literal_macro' }, '__DATA__' );