Commit | Line | Data |
b2d85594 |
1 | use strict;\r |
2 | use warnings;\r |
3 | \r |
4 | use FindBin;\r |
5 | use lib "$FindBin::Bin/lib";\r |
6 | \r |
9742697f |
7 | use Test::More tests => 4;\r |
b2d85594 |
8 | \r |
9 | use Catalyst::Test 'TestApp';\r |
10 | \r |
11 | {\r |
9742697f |
12 | my $response;\r |
13 | ok( $response = request('http://localhost/config/'), 'request ok' );\r |
b2d85594 |
14 | is( $response->content, 'foo', 'config ok' );\r |
9742697f |
15 | \r |
eac30db5 |
16 | $response = request('http://localhost/appconfig/cache');\r |
17 | ok( $response->content !~ /^__HOME__/, 'home dir substituted in config var' );\r |
9742697f |
18 | \r |
eac30db5 |
19 | $response = request('http://localhost/appconfig/foo');\r |
20 | is( $response->content, 'bar', 'app finalize_config works' );\r |
b2d85594 |
21 | }\r |