-use strict;\r
-use warnings;\r
-\r
-use FindBin;\r
-use lib "$FindBin::Bin/lib";\r
-\r
-use Test::More tests => 2;\r
-\r
-use Catalyst::Test 'TestApp';\r
-\r
-{\r
- ok( my $response = request('http://localhost/config/'), 'request ok' );\r
- is( $response->content, 'foo', 'config ok' );\r
-}\r
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 4;
+
+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' );
+}