t/10-live_auto.t

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