-use strict;\r
-use warnings;\r
-\r
-use FindBin;\r
-use lib "$FindBin::Bin/lib";\r
-\r
-use Test::More tests => 4;\r
-\r
-use Catalyst::Test 'TestApp';\r
-\r
-{\r
- my $response;\r
- ok( $response = request('http://localhost/config/'), 'request ok' );\r
- is( $response->content, 'foo', 'config ok' );\r
-\r
- $response = request('http://localhost/appconfig/cache');\r
- ok( $response->content !~ /^__HOME__/, 'home dir substituted in config var' );\r
-\r
- $response = request('http://localhost/appconfig/foo');\r
- is( $response->content, 'bar', 'app finalize_config works' );\r
-}\r
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 5;
+
+use Catalyst::Test 'TestApp';
+
+{
+ my $response;
+ 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/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' );
+}