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__/,
18 'home dir substituted in config var'
21 $response = request( 'http://localhost/appconfig/foo' );
22 is( $response->content, 'bar', 'app finalize_config works' );
24 $response = request( 'http://localhost/appconfig/multi' );
25 my $home = TestApp->config->{ home };
27 $home, TestApp->path_to( 'x' ),
28 $home, TestApp->path_to( 'y' ) );
29 is( $response->content, $path, 'vars substituted in config var, twice' );