5 use lib "$FindBin::Bin/lib";
7 use Test::More tests => 5;
9 use Catalyst::Test 'TestApp';
13 ok( $response = request('http://localhost/config/'), 'request ok' );
14 is( $response->content, 'foo', 'config ok' );
16 $response = request('http://localhost/appconfig/cache');
17 ok( $response->content !~ /^__HOME__/, 'home dir substituted in config var' );
19 $response = request('http://localhost/appconfig/foo');
20 is( $response->content, 'bar', 'app finalize_config works' );
22 $response = request('http://localhost/appconfig/multi');
23 my $home = TestApp->config->{ home };
24 my $path = join( ',', $home, TestApp->path_to( 'x' ), $home, TestApp->path_to( 'y' ) );
25 is( $response->content, $path, 'vars substituted in config var, twice' );