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