t/aggregate/unit_core_container_live_auto.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use lib "$FindBin::Bin/../lib";
   6
   7 use Test::More;
   8
   9 use_ok('TestAppContainer');
  10
  11 is( TestAppContainer->controller('Config')->{foo}, 'foo', 'config ok' );
  12
  13 ok( TestAppContainer->config->{cache} !~ /^__HOME__/,
  14     'home dir substituted in config var'
  15 );
  16
  17 is( TestAppContainer->config->{foo}, 'bar', 'app finalize_config works' );
  18
  19 my $home = TestAppContainer->config->{ home };
  20 my $path = join ',',
  21     $home, TestAppContainer->path_to( 'x' ),
  22     $home, TestAppContainer->path_to( 'y' );
  23 is( TestAppContainer->config->{multi}, $path, 'vars substituted in config var, twice' );
  24
  25 done_testing;